Добрый вечер!Помогите, пожалуйста с информатикой. С заданиями выложила вот по какому принципу надо делать. Заранее огромное спасибо!!

2

Ответы и объяснения

2013-05-20T18:52:53+00:00

A*A
A2*A3
A7*A4
A11*A5
A16*A2;
я не знаю правильно ли, может быть еще кто то отпишет


а вот масив.

 

uses crt;
var i:integer; a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do if a[i] mod 3 = 0 then a[i]:=0;
writeln;
for i:=1 to 10 do write(a[i],' ');

readln;

end.

2013-05-20T20:24:58+00:00

A*A
A1*A4
A7*A4
A12*A5
A16*A2;
я не знаю правильно ли, может быть еще кто то отпишет


а вот масив.

 cmd

uses crt;
var i:integer; a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do if a[i] mod 3 = 0 then a[i]:=0;
writeln;
for i:=1 to 10 do write(a[i],' ');

readln;

end.