Запишите значение переменной s полученное в результате работы следующей программы ,текст программы на - id770740920210130 от Дима6u9432 30.01.2021 13:16

Question

Информатика: Запишите значение переменной s полученное в результате работы следующей программы ,текст программы на трех языках var s.k: integer begin s: =0; k: =3 while k =12do begin s: =s+10; k: =k+1 end: writeln(s) end

Дима6u9432 · Accepted Answer

Const   nn = 50;{максимальное число элементов} var   a: array[1..nn] of integer;   m, n, max, min, i, kn, kz, kp, kt, nmax, nmin, t: integer; begin   Write( Задайте количество элементов в массиве (1-50): ); Readln(n);   Write( Введите значение для поиска: ); Readln(t);   Writeln( Введите элементы массива );   max := -32768; min := 32767; kn := 0; kz := 0; kp := 0; kt := 0;   for i := 1 to n do   begin     Read(m);     if max m then begin max := m; nmax := i end     else if min m then begin min :=...

MOGZ ответил