const n=10;
var a:array[1..n] of integer;
i,r: integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write (a[i]:3,' ')
end;
writeln;
write ('Введите число: ');
readln (r);
write ('Преобразованый массив: ');
for i:=1 to n do
begin
if abs(a[i]) <= r then a[i]:=a[i]*a[i];
write (a[i]:3,' ')
end
end.
Program BP_Sasde;
Uses crt;
Var a:array[1..20] Of integer;
imax,imin,i:integer;
begin
Clrscr;
imin:=20;imax:=0;
for i:=1 to 20 do begin
a[i]:=random(1,20);
if a[i]>imax then imax:=a[i] else imin:=a[i];
writeln(a[i]);
end;
writeln('максимум = ',imax,' а минимум = ',imin);
end.
5МБайт*1024=5120Кбайт
5120Кбайт/48сек=106.66 Кбайт
106.66 * 9 = 959.94 Кбайт
странно конечно что целое число не получается
Ответ:
3 элемента "И": 1- (А и В), 2- (С и В), 3- выходы 1 и 2
В разветвляется на входы 1 и 2
В девятой строке:
write ('Введите n>>')
Забыли ";"
Должно быть:
write ('Введите n>>');