Процессор
так как: устройства ввода это клавиатура, оперативная память это память, устройства вывода :колонки
Ответ: 5 полей, 15 записей
Объяснение:
1 поле - Фамилия
2 поле - Город
3 поле - Шк
4 поле - Класс
5 поле - Баллы
Записей 15, т.к Фамилии 3, учитывая все поля, то есть 3 (фамилии) * 5 ( полей) = 15 (записей.
Var a,b,c:real;
begin
writeln('введите два катета');
readln(a,b);
c:=sqrt(sqr(a)+sqr(a));
writeln(c);
<span>end.</span>
Const
n = 100;
var
i, k_max, max, neg_max: integer;
a: array[1..n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
max := a[1];
k_max := 1;
neg_max := 0;
for i := 1 to n do
begin
if a[i] > max then begin
max := a[i];
k_max := 1;
end;
if a[i] = max then k_max := k_max + 1;
if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
neg_max := a[i];
end;
writeln('Max: ', max, ' k=', k_max);
writeln('Positive: ', max);
writeln('Negative: ', neg_max);
end.