Помогите составить программу!
5-9 класс
|
в квадратном массиве (8 на 8) заменить элемент одной диагонали на единицы, а другой на нули
Program massiv;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 8 do
begin
writeln:
for j:=1 to 8 do
begin
a[i,j]:= random(9);
if i=j then a[i,j]:=0;
if i+j=9 then a[i,j]:=1
writeln(a{i,j ,' ',);
end;
end;
end.
А элемент [4,4] , это 0 или 1?
Другие вопросы из категории
Внешняя память
Оперативная память
Процессор
Монитор
Клавиатура
Помогите пожалуйста
Читайте также
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б