Помогите пожалуйста. Вообще не разбираюсь в программировании.
Паскаль. Посчитать, сколько раз в массиве из 10 элементов встречается число 5. Ввод элементов массива с помощью RANDOM из отрезка [0;8].
Answers & Comments
Windson
Var a:array [1..10] of integer; i, k:integer; begin For i:=1 to 10 do begin a[i]:=random(9); Write(a[i],' '); If a[i] = 5 then k:=k+1; end; Writeln; Writeln(k); end.
Answers & Comments
i, k:integer;
begin
For i:=1 to 10 do
begin
a[i]:=random(9);
Write(a[i],' ');
If a[i] = 5
then
k:=k+1;
end;
Writeln;
Writeln(k);
end.