2. Создать массив по правилу: М(0)=100, M(l)=99, M(2)=98,…,М(100)=0.
Код:
program mas;
var m: array[0..100] of integer;
i:integer;
begin
for i:=0 to 100 do
m[i]:=100-i;
for i:=0 to 100 do write(m[i]:8);
writeln;
readln;
end.
Одно задание я вам сделал, остальное сами думайте, ибо нечего расслабляться!