Program Alexander1;
uses crt;
const n = 10;
var
A:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=1 to n do
begin
A[i]:= Random(101)-50;
write(A[i]:7:2,' ');
end;
writeln('Числа, которые больше своего правого соседа: ');
k:=0;
for i:=1 to n-1 do
begin
if A[i]>A[i+1] then
begin
k:=k+1;
writeln(i,'-е число: ',A[i],'>',A[i+1]);
end;
end;
writeln('Всего ',k,' таких чисел');
end.
Ответ: 5 полей, 15 записей
Объяснение:
1 поле - Фамилия
2 поле - Город
3 поле - Шк
4 поле - Класс
5 поле - Баллы
Записей 15, т.к Фамилии 3, учитывая все поля, то есть 3 (фамилии) * 5 ( полей) = 15 (записей.
Процесор, потому что все выше перечисленные это запоминающие устройства.
Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.
Ответ:
форме, площадью, цветом ,