===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.
Const N = 10; M = 10;
var arr: array[1..N,1..M] of byte;
i,j,a,b,buff: byte;
begin
for i:=1 to N do begin
for j:=1 to M do begin
read(arr[i,j]);
end;
end;
for j:=1 to M do begin
buff := arr[1,j];
arr[1,j] := arr[10,j];
arr[10,j] := buff;
end;
writeln('==============');
for i:=1 to N do begin
for j:=1 to M do
write(arr[i,j]:3);
writeln;
end;
end.
Ввести:клавиатура камера мышь сканер микрофон фотоаппарат usb
вывести:монитор динамик колонки принтер
Таблица менделеева, таблица умножения, расписание уроков, таблица дежурства, таблица питания(кто кушает +, нет -)
Var n,v,k:integer;
begin
writeln('Введите объём аквариума(в литрах)');
readln(v);
writeln('Введите количество рыбок');
readln(n);
if v>=(3*n) then
begin
k:= (v div 3) -n;
writeln('Аквариум не является перенаселённым,в нём можно ещё разместить ',k,' р.');
end
else begin
k:=n- (v div 3);
writeln('Аквариум является перенаселённым,необходимо поместить ',k,' р. в другой аквариум');
end;
end.<span>
</span>