Дан массив на 10 целых чисел. Найти сумму элементов массива. Pascal ABC. Найти сумму элементов массива. Pascal ABC
Дополнен
Program primer1;
Var A:array[1..10] of integer;
Var Sum, I: integer;
Begin
readln(a);
Sum:=0;
for i:=1 to 10 do Sum:=sum+h;
if a>0 then sum+1;
write (Сумарное количество= ' ,);
end.
Исправте что не так
По дате
По рейтингу
var
a: array [1..10] of integer;
c: integer;
s: longint;
begin
write('array? ');
for c := 1 to 10 do read(a[c]);
for c := 1 to 10 do inc(s, a[c]);
writeln('sum: ', s);
end.
творение покажите
Где Ваши наработки? Если Вам необходима наша помощь, то давайте их. Если Вам нужно полное решение, посмотрите на почту)
Видео по теме