составить программу которая формирует массив из16 элементов случайных чисел от -20 до 20 и находит элементы с нулевыми значениями

+ 0 -

СеверныйВетер

27 апр. 2015 г., 10:17:04 (8 лет назад)

program Massiv;
var   
a:array[1..16] of Integer; 
i:Integer;
begin 
Randomize; 
for i:=1 to 16 do 
begin   
a[i]:=(Random(40) -20);   
Write(a[i], ' '); 
end; 
Writeln; 
Write('Komponenti, kotorie ravni nylu--->'); 
for i:=1 to 16 do 
begin   
if (a[i]=0) then   
begin     
Write(i, ' ');   
end; 
end; 
end.

+ 0 -

ЯнаЕмельянова

27 апр. 2015 г., 12:26:15 (8 лет назад)

Среду разработки скажите, пожалуйста.

+ 0 -

Gunkojulia20

27 апр. 2015 г., 15:22:37 (8 лет назад)

Ну, на чём писать программу?

+ 0 -

прррррррррр84985379

27 апр. 2015 г., 16:09:09 (8 лет назад)

PascalABC

+ 0 -

Ric435

27 апр. 2015 г., 18:45:37 (8 лет назад)

Хорошо, сейчас напишу.