Регистрация
Roni13372155
12.02.2022 19:15
Информатика
Есть ответ 👍

Заповнити масив к із 8 елементів значеннями з клавіатури і вивести в рядок,вказавши його порядковий номер.

223
492
Посмотреть ответы 2

Ответы на вопрос:

Danich114ejck
Danich114ejck
4,7(2 оценок)
Var x: array[1..8] of longint; var i,a : longint; begin for i: = 1 to 8 do begin; readln(a); x[i] : = a; end; writeln('массив k: '); for i: = 1 to 8 do begin; writeln(',i,' = ',x[i]); end; readln; end.
Каримончик
Каримончик
4,4(50 оценок)
Begin   var n, i: integer;   var max, k: real;   write('n = ');   readln(n);   readln(max);   for i : = 2 to n do   begin     readln(k);     if (k > max) then max : = k;   end;   writeln('> ', max); end.

Популярно: Информатика