const g=3;v=5;
var i,j,s,m,mi:integer;
a:array [1..g,1..v] of integer;
begin
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=random(21)-10;
write (a[i,j]:5)
end;
writeln
end;
writeln;
for i:=1 to g do
begin
for j:=1 to v do
begin
if (i+j) mod 2=0 then a[i,j]:=555;
write (a[i,j]:5)
end;
writeln
end;
end.
Program p1;
var a: real;
S: real;
P: real;
begin
writeln('Введите сторону квадрата A: ');
readln(a);
S := a * a;
P := a * 4;
writeln('Площадь равна ',S);
writeln('Периметр равен ',P);
<span>end.</span>
var a: array[1..10] of integer;
i,sum: integer;
begin
sum:=0;
writeln('введите массив:');
for i:=1 to 10 do begin
readln(a[i]);
if a[i] mod 2=0 then sum:=sum+a[i];
end;
a[1]:=sum;
write('полученный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
Ну если только двумя, то самые легкие и что первое пришло на ум
- непосредственно создать новый Файл - Создать
- сохранить открытый документ под новым именем Файл - Сохранить как..