Опредилить количество трех значных чисел в строке, содержащие группы цифр, разделеных пробелом - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Опредилить количество трех значных чисел в строке, содержащие группы цифр, разделеных пробелом - Pascal ABC»

textual
var
  a:array[1..6,1..3] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to 6 do begin
    write('Введите число ',i,' строки:');readln(a[i,1]);
    a[i,2]:=2*(i+2);
    a[i,3]:=random(10);
  end;
  writeln('полученный массив:');
  for i:=1 to 6 do begin
    for j:=1 to 3 do write(a[i,j]:10);
    writeln;
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 3.429 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы