Ім'я файлу: Скласти програму знаходження суми всіх елементів одновимірного.d
Розширення: docx
Розмір: 12кб.
Дата: 03.02.2021
скачати
Розширення: docx
Розмір: 12кб.
Дата: 03.02.2021
скачати
Скласти програму знаходження суми всіх елементів одновимірного (двовимірного) масиву.
Нехай А – одновимірний масив
Програма матиме такий вигляд:
Var A:array[1..8] of integer;
S,i:integer;
Begin
For i:=1 to 8 do Read (a [I]);
S:=0;
For i:=1 to 8 do S:=S+ a[I];
For i:=1 to 8 do Write (a[I]);
Writeln;
Writeln(’сума=’,s);
End.