| Автор | крик о помощи |
|---|
Решение 3й задачи.
program p3;
var E: array [1..10] of integer;
var i:integer;
begin
writeln('Стартовый массив:');
for i:=1 to 10 do begin
E[i]:=random(100);
writeln(E[i]);
end;
writeln('Результирующий массив:');
for i:=1 to 10 do begin
if i mod 3=0 then E[i]:=33;
writeln(E[i]);
end;
readln;
end. |
Решение 2й задачи.
program p2;
var P: array [1..7] of integer;
var i:integer;
begin
writeln('Введите 7 чисел:');
for i:=1 to 7 do begin
readln(P[i]);
P[i]:=-P[i];
end;
writeln('Результирующий массив:');
for i:=1 to 7 do begin
writeln(P[i]);
end;
readln;
end. |
| большое спс Вито Корлеоне и Monik92 |
| тема закрыта by Александра Мяу (2013-02-25 18:19:59) |
|---|
