Напишите программу формирования и вывода массива размером 6 х 3

@Валют · Регистрация: 25.01.2016

Author24 — интернет-сервис помощи студентам

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

@Puporev · 25.01.2016, 18:55

Pascal

uses crt;
const m=6;
      n=3;
var a:array[1..m,1..n] of integer;
    i,j:integer;
begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    case j of
    1:a[i,j]:=10*(i+j);
    2:a[i,j]:=trunc(random(100)/(i+j));
    3:a[i,j]:=abs(a[i,2]-a[i,1]);
    end;
    write(a[i,j]:6);
   end;
  writeln;
 end;
readln
end.

@Валют 0 / 0 / 0 Регистрация: 25.01.2016 Сообщений: 1
		1
	Напишите программу формирования и вывода массива размером 6 х 3 25.01.2016, 18:10. Показов 3388. Ответов 1 Метки нет (Все метки) Напишите программу формирования и вывода массива размером 6*3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й — равен сумме текущих индексов, увеличенной в 10 раз; 2-й — равен целой части отделения случайного числа на сумму текущих индексов; 3-й — равен разности двух предыдущих элементов. 0

	25.01.2016, 18:55

Напишите программу формирования и вывода массива размером 6 х 3

Решение