Составить программу формирования и вывода массива

@Alice White · Регистрация: 29.01.2013

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

Помогите пожалуйста.

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

@Puporev · 30.01.2013, 12:07

Pascal

uses crt;
const m=6;
      n=3;
var a:array[1..m,1..n] of byte;
    i,j:byte;
begin
for i:=1 to m do
 begin
  a[i,1]:=(i+1)*10;
  a[i,2]:=trunc((a[i,1]+1)/(i+2));
  a[i,3]:=a[i,1]-a[i,2];
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end
end.

@Alice White 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 7
		1
	Составить программу формирования и вывода массива 29.01.2013, 22:29. Показов 1225. Ответов 1 Метки нет (Все метки) Помогите пожалуйста. 2- Составить программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й равен сумме текущих индексов, увеличенной в 10 раз; 2-й равен целой части от деления следующего числа на сумму текущих индексов; 3-й равен разности двух предыдущих элементов. 0

	30.01.2013, 12:07

Составить программу формирования и вывода массива

Решение