** языке паскаль 1)дан массив натуральных чисел найдите сумму всех его...

Question

на языке паскаль

1)дан массив натуральных чисел найдите сумму всех его элементов

2)вычислить количество положительных чисел среди 10 элементов вещественного массива

3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.

4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов

Answer 1

1.

var
i,n,s:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:=1 to n do
begin
  readln(a[i]);
  s:=s+a[i];
end;
writeln('Сумма элементов массива = ',s);
end.

 

2.

var
i,n,k:integer;
a:array [1..10] of real;  
begin
k:=0;
for i:=1 to 10 do
begin
  readln(a[i]);
  if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов массива = ',k);
end.

 

3.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
if a[1]>0 then writeln('Раньше встречается положительное число')
          else writeln('Раньше встречается отрицательное число')
end.

 

4.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
for i:=1 to n do if a[i]<0 then write(i,' ');<br>end.