Дело в том что информатики пол года не было и оценка ни у кого не вышла а сейчас огэ думать некогда - id771641220200704 от Rube13454hill 04.07.2020 09:58

Question

Информатика: Дело в том что информатики пол года не было и оценка ни у кого не вышла а сейчас огэ думать некогда да ещё и на дом задали 6 в паскале, а я тупой поэтому и вот сама : составьте алгоритм,блок-схему и программу задайте массив из 10 элементов с датчика случайных чисел в интервале от -10 до 50. замените отрицательные элементы их модулями. выведите на экран исходный и изменённый массивы.

Rube13454hill · Accepted Answer

Задание №1 var r:integer;  begin  writeln( Введите радиус );  read(r);  writeln( Длина окружности = ,2*pi*r);  writeln( Площадь круга = ,pi*sqr(r));  end. Задание №2 var a,d,n:integer;  begin  writeln( Введите первый член, знаменатель, число членов );  read(a,d,n);  writeln( Cумма членов арифметической прогресси = , 0.5*n*(2*a+(n-1)*d));  end.  Задание №3 var m,n:integer;  begin  writeln( Введите m и n );  read(m,n);  if m=n then begin  m:=0;  n:=0;  end;  if (m n) then n:=m  else if n m then m:=n; ...

MOGZ ответил