Информация, хранящаяся в долговременной памяти компьютера как единое целое и обозначенная именем, называется

я думаю что эта папка или файл

 

я думаю это называется

program help; uses crt; const n = 10; (* размер массива *)var a : array[1..n] of integer; (* массив с числами *) i : integer; beginrandomize; clrscr; writeln('массив: '); for i : = 1 to n do begin a[i] : = random(601) - 300; (* заполняем рандомными числами *) writeln('a[', i, '] = ', a[i]); (* выводим на экран *) if (a[i] mod 3 = 0) and (a[i] mod 5 < > 0) then a[i] : = 0; (* обнуляем числа кратные 3 и не кратные 5 *) end; writeln('массив после изменения: '); for i : = 1 to n do writeln('a[', i, '] = ', a[i]); (* выводим на экран *)end.

1)

var

 s : real;

 i, n : integer;

begin

 s := 0;

 read (n);

 for i := 1 to n do s := s + 1 / i;

 writeln (s);

end.

 

2)

var

 a, i : integer;

begin

 a := 1;

 for i := 1 to 8 do

 begin

   a := a * 2;

   writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

 end;

end.

 

3)

var

 n, i : integer;

 x, s : real;

begin

 s := 0;

 read (n, x);

 for i := 1 to n do

   s := s + sin (i * x);

 writeln (s);

end.

 

4)

var

 n, a, r, i : integer;

begin

 r := 1;

 read (a, n);

 for i := 1 to n do r := r * a;

 writeln (r);

end.

Объяснение: