у мя паскаль, Составьте программу,которая формируется массив из шестнадцати случайных целых чисел от -20 до 20 и:находить элементы с нулевыми значениями.
Answers & Comments
000LeShKa000
Program ask_1; const k = -20; b = 20; type MyArray = Array[1..16]of integer; var A:MyArray; i:integer; // begin Randomize; for i:=1 to 16 do begin A[i] := random(b-k+1); if (A[i] = 0) then write(i); end; end. Поскольку в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.
Answers & Comments
const k = -20;
b = 20;
type MyArray = Array[1..16]of integer;
var A:MyArray;
i:integer; //
begin
Randomize;
for i:=1 to 16 do begin
A[i] := random(b-k+1);
if (A[i] = 0) then write(i);
end;
end.
Поскольку в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.