Program q; var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real; begin; randomize; for i:=1 to 7 do begin; for k:=1 to 7 do begin; a[i,k]:=random(-10,10); if a[i,k] mod 2 = 1 then odd+=1; end; end; min7:=a[1,7]; for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7]; for i:=1 to 7 do sum1+=a[i,1]; for i:=1 to 7 do avg5+=a[5,i]; avg5/=7; for i:=1 to 7 do a[1,i]:=1; write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.
Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.
begin
readln(a, b);
writeln(a + b);
end.
2)
var x, y: real;
begin
readln(x, y);
writeln(x / y);
end.
3)
var a, b, c, d: real;
begin
readln(a, b, c, d);
writeln(a * b * c * d);
end.
=))