Заполнить массив чисел действительного типа размерности 99 × 99 произвольными значениями. Вывести на экран все элементы массива, в которых хотя бы один из индексов является точным кубом. (Используя указатели)
на счёт точного куба тоже не знаю если поможет вот матрица 99 х 99 с произвольными значениями uses crt;
var i, j, chet, nechet: integer; a: array[1..99, 1..99] of integer;
begin Randomize; WriteLn('Нарисуем куб случайных чисел.'); for i := 1 to 99 do begin for j := 1 to 99 do begin a[i, j] := Random(8) + 1; if a[i, j] mod 2 = 0 then chet := chet + 1 else nechet := nechet + 1; Write(a[i, j]:2); end;
Вот она:) : var mass:array[1..99,1..99]of byte; i,j:byte; begin randomize; for i:=1 to 99 do begin for j:=1 to 99 do mass[i,j]:=random(11); write(mass[i,j],' ');readln;end; end. У тебя куча ненужного в твоём коде:) Нужна помощь? Сюда: vkontakte.ru/berestovskiy
