В ПАСКАЛЕ 1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.2.Дан массив действительных чисел,размерность которого N. Подсчитать сколько в нем отрицательных положительных и ну...
В ПАСКАЛЕ
1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
2.Дан массив действительных чисел,размерность которого N. Подсчитать сколько в нем отрицательных положительных и нулевых элементов.
Гость
Ответ(ы) на вопрос:
Гость2 задача
program _2;
var a:array [1..n] of integer;
x,y,s,i:integer;
begin
for i:=1 to n do readln(a[i]);
s:=0;x:=0;y:=0;
for i:=1 to n do if a[i]=o then s:=s+1 else if a[i]>0 then x:=x+1 else if a[i]<0 then y:=y+1; writeln(s, x, y);end.
Не нашли ответ?
Похожие вопросы