Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
Книга, телевизор, радио, газета,друзья
Во-первых, от пользовательских настроек курсора, во-вторых, от текущего положения\состоятия мыши: обычное, выполняется программа, на гиперссылке или другом объекте, пригодном для взаимодействия, при редактировании текста, при изменении размера окна, и других.
Я бы сказала калькулятор, потому что и счеты, и абак(Греция), и соробан (Китай), это устройства для счета.
Ответ упирается только в то, что требуется первые счетные устройства
Program fff;
const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.