Помогите.Информатика 9 класс.Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит элемент с нулевым значением
Ответы
Ответ дал:
0
// PASCAL
var
a: array [1..16] of integer;
i: integer; b: boolean;
begin
randomize;
for i := 1 to 16 do a[i] := random(-20, 20);
for i := 1 to 16 do
if a[i] = 0 then begin
if b then write(', ');
write(i, '-й ');
b := true;
end;
if b then writeln('элемент(ы) равен(ны) нулю') else writeln('В массиве нету элементов, равных нулю.');
end.
var
a: array [1..16] of integer;
i: integer; b: boolean;
begin
randomize;
for i := 1 to 16 do a[i] := random(-20, 20);
for i := 1 to 16 do
if a[i] = 0 then begin
if b then write(', ');
write(i, '-й ');
b := true;
end;
if b then writeln('элемент(ы) равен(ны) нулю') else writeln('В массиве нету элементов, равных нулю.');
end.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад