Tomiriis қолданушы

Сұрақ қою Сұрақ қою
Тіркелген күні: 10 жыл (15.04.2014 тіркелді)
Қолданушы: Тіркелген қолданушы
Аты-жөніңіз:
Өзіңіз туралы:

Tomiriis белсенділігі

Балы: 52 балл (#15,783 орында тұр)
Сұрақ: 1
Жауап: 0
Пікір: 0
Дауыс: 0 сұрақ, 0 жауап
Бергені: 0 жоғары дауыс, 0 төмен дауыс
Қабылданғаны: 0 жоғары дауыс, 0 төмен дауыс

Жеке сұрақ қою

Жеке сұрақ қою үшін сайтқа кіріңіз немесе тіркеліңіз .
program test;
var A:array[1..10]of integer;
i:integer;
 
begin
 
for i:=1 to 10 do
  A [i]:= random (50);
  writeln(A[i]);

for i:=1 to 10 do
  if A[i] > 0 then
    A[i]:=round(A[i]/2 )
  else
    A[i]:=i;
 
end.
tiger 16.04.2014 жазды
...