Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

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

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

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

Ответ оставил Гость

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, );
end.