Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и:а) находит элементы с нулевыми значениями; б) находит индексы четных элементов; в) подсчитывает кол-во отрицательных элементов; г...
Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и:
а) находит элементы с нулевыми значениями; б) находит индексы четных элементов; в) подсчитывает кол-во отрицательных элементов; г) Определяет, есть ли в этом массиве хотя бы одно число, кратное трем; д) находит в этом массивеиндексы элементов, значения которых кратны трем; Помогите, пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьconst n=16; minr=-20; maxr=20;
var a:array[1..n] of integer; k,i:integer; t:boolean;
begin
for i:=1 to n do begin a[i]:=random(maxr-minr+1)+minr; write(a[i],' ') end;
writeln;
k:=0;
for i:=1 to n do begin if (a[i] mod 2=0) and (a[i]<>0) then write(i,' '); if a[i]<0 then k:=k+1 end;
writeln;
writeln(k);
t:=false;
for i:=1 to n do if (a[i] mod 3=0) and (a[i]<>0) then begin if t=false then begin writeln(true); t:=true end; write(i,' ') end;
if t=false then writeln(false)
end.
Не нашли ответ?
Похожие вопросы