Задача с помощью Паскаля: заполнить таблицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы
5-9 класс
|
выделенные зеленым цветом. вот по первой картинке СЛЕВА. Вот что должно получиться:
var
a: array [0..6, 0..6] of integer;
i, j: integer;
begin
for i := 0 to 6 do
begin
for j := 0 to 6 do
begin
a[i, j] := random(21) - 10;
write(a[i, j]:4);
end;
writeln();
end;
for i := 1 to 5 do
for j := 1 to i do
a[i, 6 - j] := 0;
writeln();
for i := 0 to 6 do
begin
for j := 0 to 6 do
write(a[i, j]:4);
writeln();
end;
end.
не против, если запись будет на универсальнм языке?
мне в паскале только, ну чтобы туда вставить
Другие вопросы из категории
1>3,4>5,4<3,2<5.
координаты которых приведены ниже. Соедините точки в заданной последо
Читайте также
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.
1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа
1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания
Составте программу, которая заполняет массив а[1..8] случайными целыми числами от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями
1)Заполнить массив случайными числами от -100 до +100
и распечатать на экране только отрицательные числа
2)Дан массив из 20 элементов числа от -50 до +50
а)Каждый элемент больше 10 заменить на его квадратный корень
б)Все элементы с четными номерами заменить на их абсолютную величину(модуль)
в)Ко всем отрицательным элементам прибавить 5 , а к остальным первый элемент массива