Презентация, доклад по информатике для 9 класса школ РБ Арифметические действия с элементами массива

N:array[1..10] of integer;
N[i]:=N[i]+14;
N[i]:=N[i]*N[i];
N[i]:=N[i] mod 2;
N[i]:=N[i] div 10;
sred:=(N[1]+N[2])/2;
sred:real;

uses crt;
var rf:array[1..7] of integer; i:integer; sum:real;
begin
sum:=0;
writeln('Введите 7 размеров файлов в байтах');
for i:=1 to 7 do
begin
read(rf[i]);
sum:=sum+rf[i]/1024;
end;
writeln('Суммарный размер файлов =',sum,' кбайт');
end.

Начало

Пригла-шение

Вывод sum

Конец

i=1..10

Ввод i-го эл-та

Да

Нет

sum + i-тый элемент

sum=0

uses crt;
var rf:array[1..7] of integer; i:integer;
begin
sum:=0;
writeln('Введите 7 значений размера файлов в байтах');
for i:=1 to 7 do
begin
read(rf[i]);
sum:=sum+rf[i]/1024;
end;


end.

sr:=sum/7;

sum,sr: real;

sum: real;

writeln('Суммарный размер файлов = ',sum, ' кбайт');

writeln('Средний размер файла = ',sr, ' кбайт');

uses crt;
var rand:array[1..20] of integer; i,n:integer; sum,sr:real;
begin
for i:=1 to 20 do
rand[i]:=random(21)-10;
sum:=0; n:=0;
for i:=1 to 20 do
if rand[i]>=0 then
begin
sum:=sum+rand[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение положительных чисел = ',sr);
end.

Начало

Вывод sr

Конец

i=1..20

Ввод i-го эл-та

Да

Нет

i=1..20

rand[i]>=0

Нет

Да

sum=0, n=0

Да

Нет

накопление sum, n

Расчёт sr

:3:2);