Составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и: а) находит элементы с нулевыми значениями б) находит индексы четных элементов в) подсчитывает количество отрицательных элементов г) определя...
Составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и:
а) находит элементы с нулевыми значениями
б) находит индексы четных элементов
в) подсчитывает количество отрицательных элементов
г) определяет, есть ли в этом массиве хотя бы одно число, кратное трем
д) находит в этом массиве индексы элементов, значения которых кратны трем .
На экран выводятся исходный массив и найденные элементы
Гость
Ответ(ы) на вопрос:
Гостьconst n=15;
Var a:array[1..n] of integer;
i,indx,k,tr,indxx:integer;
Begin
Randomize;
For i:=1 to n do begin
A[i]:=Random(40)-20;
Write(a[i],' ');
end;
Writeln;
write('0 имеет номер: ');
For i:=1 to n do
Begin
If A[i]=0 thenwrite(i);
end;
Writeln;
indx:=0;
For i:=1 to n do
Begin
If a[i] mod 2=0 then
begin
indx += 1;
a[indx]:=a[i];
end;
end;
Write('Индекс четных элементов: ');
For i:=1 to indx do
write(a[i],' ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
inc(k);
end;
end;
Writeln;
Writeln('Кoличество отрицательных элементов: ',k);
For i:=1 to n do
Begin
If A[i] mod 3=0 then
tr:=a[i];
end;
Writeln('Кратное трем ',tr);
indxx:=0;
writeln('Индексы кратны 3: ');
For i:=1 to n do
Begin
If a[i] mod 3=0 then
begin
indxx += 1;
a[indxx]:=a[i];
write(' ',a[i]);
end;
end;
end.
Не нашли ответ?
Похожие вопросы