Возьми, учись хорошо,удачи тебе в учёбе
Вот тебе решение первой .
program p1;
uses crt;
var a:array[1..10,1..10] of integer;
i,j,n,max,min,s:integer;
begin
read(N);
for i:=1 to N do begin
For j:=1 to N do begin
a[i,j]:=random (21) -10 ;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to N do begin
If max<a[i,i] then begin
max:=a[i,i];
end;
If min>a[i,i] then begin
min:=a[i,i];
end;
end;
s:=max+min;
writeln;
write(s);
end.
RGB = 256*256*256 цветов = 16`777`216 цветов = 2^(8*3) = 2^24 т.е. 24 бита на пиксель
24*40*40 бит = 38`400 бит = 4`800 байт
цифро-буквенная (символьные) - печать символов и цифр;
функциональная - клавиши F1...F12;
клавиши для управления курсором - иными словами стрелочки;
доп. клавиши (NUM LOCK) - Печать цифр или управление курсором;
служебные (специальные) - запрограммированы на какие-либо действия или на изменение действий других клавиш (Alt, Ctrl, Shift, TAB, Win, Scroll Lock, Pause и т.д.).
var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>