Fп 1. Дан одномерный массив, значения элементов которого задаются случайным образом. Вычислить сумму - id1754843820210521 от lavika1 21.05.2021 06:02

Question

Информатика: Fп 1. Дан одномерный массив, значения элементов которого задаются случайным образом. Вычислить сумму квадратов элементов данного массива, больших некоторого числа М. На экран вывести исходный массив и полученный результат.

lavika1 · Accepted Answer

Var
{Файл 1.txt необходимо создать }
n,i,j,c1:integer;
a:array[1..100] of integer;
f:text;
begin
{чтение данных с файла 1.txt}
assign(f,'1.txt'); reset(f);
i:=0;
while not eof(f) do
begin
   i:=i+1;
   read(f,a[i]);
end;
n:=i;
close(f);
{Сортировка}
for i:=1 to n-1 do
for j:=i+1 to n do
    if a[i]>a[j] then
        begin
         c1:=a[j];
         a[j]:=a[i];
         a[i]:=c1;
        end;
{вывод в файл 2.txt отсортированного массива}
assign(f,'2.txt'); rewrite(f);
for i:=1 to n do
   write(f,a[i]:5);
close(f);

end.

MOGZ ответил