Регистрация
vitiatiger
23.02.2020 21:32
Информатика
Есть ответ 👍

Найти сумму элементов массива b[10] напишите программу на

245
252
Посмотреть ответы 2

Ответы на вопрос:

ms002
ms002
4,6(25 оценок)
Program summa; uses crt; const n =10; var b: array[1..n] of integer;         s,i : integer; begin s: =0; for i: =1 to n do begin   write( 'b[ ' ,i, ']= ' );   readln(b[i]); s: =s+b[i]; end; writeln( 's=' ,s); end.
JesusVl
JesusVl
4,6(28 оценок)
1) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: = random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do if a[i]  mod 2=0 then a[i]: =100; for i: =1 to 15 do write(a[i],' '); end. 2) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: =random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do a[i]: =a[i]-2*a[i]; for i: =1 to 15 do write(a[i],' '); end.

Популярно: Информатика