Помогите!!!!!!!!!!!!!!!!!!написать программу квадратную матрицу 30х30:Все элементы четных строк =1,
5-9 класс
|
нечетных=8
var
matrix:array[1..30,1..30] of integer;
i,j:integer;
begin
for i:=1 to 30 do
for j:=1 to 30 do
begin
if i mod 2 = 0 then
matrix[i,j]:=1
else
matrix[i,j]:=8;
end;
for i:=1 to 30 do
begin
for j:=1 to 30 do
write(matrix[i,j],' ');
writeln;
end;
end.
Другие вопросы из категории
письмо друга.2. Среди перечисленных ниже устройств выпишите устройства вывода информации.
клавиатура,монитор,мышь,сканер,принтер,колонки.3. среди представленных нижу устройств выпишите устройства передачи информации
телеграф,интернет,диск,компьютер,дискета.НАПИШИТЕ ПОЖАЛУЙСТА
каждого кубика, которое будет получено?
Читайте также
1. Написать программу нахождения произведения n чисел.
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел