Дан массив array[1..100] с цикла присвоить, каждому элементу массива значение равное номер элемента умноженный на 3. например для массива а значение элемента а[1]=2, a[2]=6 a[3]=9 и т.д. в конце программа должна выводить на экран сумму всех элементов массива.

246

302

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

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

2566409

Информатика

4,6(48 оценок)

Var a : array[1..100] of integer; var i, s : integer; begin for i: =1 to 100 do a[i]: =i*3; s: =0; for i: =1 to 100 do s: =s+a[i]; writeln('сумма элементов массива= ',s); end.или без лишнего цикла можно такvar a : array[1..100] of integer; var i, s : integer; beginfor i: =1 to 100 do begin a[i]: =i*3; s: =s+a[i]; end; writeln('сумма элементов массива= ',s); end.

shishovtopking

Информатика

4,7(87 оценок)

//pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) const n = 10; var a: array [1..n] of integer; i, j, b: integer; begin for i : = 1 to n do a[i] : = random(81) - 40; writeln('элементы массива a: '); for i : = 1 to n do write(a[i], ' '); writeln; //сортировка не быстрая, но и массив маленький for j : = 1 to n do for i : = 1 to n - 1 do if a[i] < a[i + 1] then begin b : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = b; end; writeln; writeln('после сортировки : '); for i : = 1 to n do write(a[i], ' '); writeln; end.