составьте программку, которая заполняет массив а[1..10] случайными целыми числами от 0

Составьте программку, которая заполняет массив а[1..10] случайными целыми числами от 0 до 2 и выводит на экран количество элементов, одинаковых 1.
Pascal Abc

Задать свой вопрос
2 ответа
Var a:array[1..10] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(3);
write (a[i],' '); end;
writeln;
k:=0;
for i:=1 to 10 do
if a[i]=1 then k:=k+1;
writeln('Количество частей одинаковых 1 = ',k);
end.

Program enot;
Var a: array [1..10] of integer;
 i,k: integer;
begin
k:=0;
for i:= 1 to 10 do
a[i]:= random(2);
for i:= 1 to 10 do
if a[i]=1 then k:=k+1;
writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт