Реферат: Одномерные массивы. Организация ввода и вывода данных

Задание 3. Организовать одномерный массив из 20 целых чисел. Найти сумму всех квадратных элементов в массиве и вывести на экран.

program p2;

uses crt;

var a:array [1..20] of integer;

i,s:integer;

begin clrscr;

writeln ('vvedi 20 chisel');

for i:=1 to 20 do readln (a[i]);

for i:=1 to 20 do a[i]:=sqr(i);

for i:=1 to 20 do writeln ('a[','i',']=',a[i]);

for i:=1 to 20 do

s:=s+a[i];

writeln ('summa vsex kvadratnix elementov=',s);

readln;

end.

Задание 4.

Организовать одномерный массив путем заполнения его квадратами чисел от 1 до 10. Найти сумму чисел кратных 3.

Program p4;

Uses crt;

Var a:array[1..10] of integer;

i,s:integer;

Begin

ClrScr;

Writeln('vvedite 10 chisel');

for i:=1 to 10 do Readln (a[i]);

for i:=1 to 10 do a[i]:=Sqr(i);

For i:=1 to 10 do WriteLn('a[',i,']=',a[i]);

For i:=1 to 10 do

if (a[i] mod 3=0) then