
Кассианович
7 год назад
Обработка и поиск двумерного массива:
Размер массива: 4х2 вещественные;
Способ ввода: Датчик случайных чисел;
Способ вывода: Вывод массива осуществить в виде матрицы;
Обработка массива: Найти количество элементов равных 10;
Поиск: Элементов, равных нулю.
Надеюсь, среди Вас найдутся те, кто поможет мне с данной задачей.
Ах да, баллами не обижу )
Работать в PascalABC ( не .NET ).
ОТВЕТЫ

Oleg
Aug 15, 2019
Program Pascal1;
uses Crt;
const
m=4;
n=2;
var
a:array[1..m,1..n] of real;
i,j,k:integer;
begin
ClrScr;
Randomize;
Writeln(Сформированный масcив);
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(31)-15.0;
Write(a[i,j]:6:1);
if a[i,j]=10 then Inc(k)
end;
Writeln
end;
Writeln(Количество элементов, равных 10: ,k);
Write(Нулевые элементы: );
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then Write(a[,i,,,j,] );
Writeln
end.
Вариант выполнения:
uses Crt;
const
m=4;
n=2;
var
a:array[1..m,1..n] of real;
i,j,k:integer;
begin
ClrScr;
Randomize;
Writeln(Сформированный масcив);
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(31)-15.0;
Write(a[i,j]:6:1);
if a[i,j]=10 then Inc(k)
end;
Writeln
end;
Writeln(Количество элементов, равных 10: ,k);
Write(Нулевые элементы: );
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then Write(a[,i,,,j,] );
Writeln
end.
Вариант выполнения:
111
Смежные вопросы: