Нужна программа вывода трехмерного массива в паскале!
5-9 класс
|
var
i,j,k:integer;
a:array[1..3,1..4,1..5]of integer;
begin
for i:=1 to 3 do
begin
writeln('Слой ',i);
for j:=1 to 4 do
begin
for k:=1 to 5 do
begin
a[i,j,k]:=random(10);
write(a[i,j,k],' ');
end;
writeln;
end;
writeln;
end;
end.
Другие вопросы из категории
-Отношения подмножества;
-Перечисление множеств;
-Объединение множеств.
Напишите пожалуйста программу для паскаля
ПРОШУ ВАС!)
Паскаль. Введите любое число и выведите на экран наибольшую цифру в числе.
Например ввожу 5683, а он мне должен вывести: 8.
Начало программы я допер:
program z1;
var n:integer;
begin
K:=0;
writeln('Введите любое число');
readln(n);
while n<>o do begin
n:=n div 10;
k:=k+1;
end;
... Тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(
Program prim2;
Var x, y: real;
Begin
For x:=-10 to 10 do
Begin
y:-sqr (x);
Writeln ( x,' ', y)
end;
End.
Читайте также
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
число и согласованное с ним слово «книга». Например, на ввод числа 1 программа выводит «1 книга», на ввод числа 2 — «2 книги» и т. д.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.