Cpp:
For (int i = 0; i < кол-во элементов; i++){
If (mas [i] >= 0){
mas [i] = 0;
}
else{
mas [i] = mas [i] * mas [i];
}
Антон и Екатерина - Норильск
Григорий и Мария - Москва
Давид и Светлана - Ростов
Борис и Ольга - Пятигорск
Const n=10
var a:array [1..10] of integer;
i:byte; p:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =', p);
readln;
end.
(Блок-схему можно легко составить, исходя из программы)
var f1,f2:text;
d,s,z,n:longword;
a,b,t,m,x:smallint;
begin
assign(f1,'input.txt');
reset(f1);
assign (f2,'output.txt');
rewrite(f2);
readln(f1,d,a,b,s,t);
if a>b then x:=a-b else x:=b-a;
if d mod s=0 then n:=d div s else n:=d div s+1;
if x mod t=0 then m:=x div t else m:=x div t+1;
z:=n+m;
write(f2,z);
close (f1);
close (f2);
end.