Сформируйте и выведите на экран массив из девяти элементов

@Клариса · Регистрация: 30.01.2012

Сформируйте и выведите на экран массив из девяти элементов , каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен случайному двузначному числу;
2-й равен целой части от деления случайного трехзначного числа на его индекс;
3-й равен остатку от деления случайного двузначного числа на 10.

@WebMax 2.0 · 13.02.2012, 21:30

Pascal

 var
 mas : array [1..9] of real;
 i,x:integer;
 
 begin
 randomize;
   For i:=1 to 9 do
   begin
     x:=x+1;
     if x=1 then mas[i]:=random(90)+10 else
     if x=2 then mas[i]:=(random(900)+100) div i else
     begin
       mas[i]:=(random(90)+10) mod 10;
       x:=0;
     end;
   end;
   
   For i:=1 to 9 do
   write(mas[i],' ');
 end.

@Клариса 0 / 0 / 0 Регистрация: 30.01.2012 Сообщений: 23
		1
	Сформируйте и выведите на экран массив из девяти элементов 13.02.2012, 21:12. Показов 3641. Ответов 1 Метки нет (Все метки) Сформируйте и выведите на экран массив из девяти элементов , каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен случайному двузначному числу; 2-й равен целой части от деления случайного трехзначного числа на его индекс; 3-й равен остатку от деления случайного двузначного числа на 10. 0

Опции темы

Сформируйте и выведите на экран массив из девяти элементов

Решение