4мес

Помогите пожалуйста с информатикой 9 класс

Написать программу на языке Паскаль, которая вычисляет сумму элементов массива, состоящего из 5 элементов. Элементы вводятся по формуле a [i]=2*i.

По дате

По Рейтингу

user_27493017

Новичок

4мес

Если чисто сумму вывести - то вот:

1234567891011121314151617

 Program P1; 
uses crt; 
var a: array [1..5] of byte; 
    i, s: byte; 
begin 
textbackground (blue); 
textcolor (white); 
clrscr; 
s:=0; 
for i:=1 to 5 do begin 
    a[i]:=i+i; 
    s:=s+a[i]; 
    end; 
writeln ('Сумма элементов массива: ', s); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

Если же (например, для проверки) нужно чтобы и сам массив выводился:

1234567891011121314151617181920

 Program P1; 
uses crt; 
var a: array [1..5] of byte; 
    i, s: byte; 
begin 
textbackground (blue); 
textcolor (white); 
clrscr; 
s:=0; 
for i:=1 to 5 do begin 
    a[i]:=i+i; 
    s:=s+a[i]; 
    end; 
write ('Был сгенерирован массив:'); 
for i:=1 to 5 do write (' ', a[i]); 
writeln (' '); 
writeln ('Сумма элементов массива: ', s); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

Если используете Pascal ABC _Net, то для корректной работы удалите из программы строки:

123456

 uses crt;
textbackground (blue);  
textcolor (white);  
clrscr;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;

tru_tru_175

Мудрец

4мес

program SumArray;
var a: array[1..5] of integer; i, sum: integer;
begin
for i := 1 to 5 do a[i] := 2 * i;
sum := 0;
for i := 1 to 5 do sum := sum + a[i];
writeln('Сумма элементов массива: ', sum);
end.