Program n1;
uses crt;
const nn=1000;
var
i,j,n,k:integer;
m: array[1..nn,1..nn] of integer;
begin
randomize;
writeln('Введите размерность массива'); readln(n);
for i:=1 to n do
for j:=1 to n do m[i,j]:=random(100)-50;
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:4,' ');
writeln; end;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (m[i,j]>0) then k:=k+1;
writeln(k);
<span>end.</span>
156 Йбит = 163577856 Эбит
1) .jpg, .bmp, .png, .jpeg - это картинки
<span>2) .jpg, .txt, .jpeg, .png - это картинки и текст
</span>3) .txt, .doc, .docx - это текст
4) .mp3, .wav, .aup - это звуки
5) .mpeg, .txt, .doc - это текст и видео
<span>6) .gif, .mp3, .wav - это картинки и звуки</span>
Да.Может, и всегда будет.
Var a, b, c: real;
begin
write('Введите a, b, c>>');
read(a, b, c);
if (a=b) and (b=c) then writeln('Треугольники равносторонние')
else writeln('Треугольники не равносторонние');
end.<span>
</span>