Распишите до мелочей пожалуйста
10-11 класс
|
program gt;
var a:array[1..7,1..7]of integer;
i,j,s:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
begin
if(i=j)then a[i,j]:=0 else
if(i<j)then a[i,j]:=1 else
a[i,j]:=2;
end;
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(a[i,j],' ');
writeln;
end;
s:=0;
for i:=1 to 6 do
s:=s+i;
writeln(s,'-кол-во эл. ниже поб. диогонали');
end.
Другие вопросы из категории
Даны действительные положительные числа x
которых алгоритм печатает сначала 3 ,а потом 7 , решите пжл ,полностью
Наследованием называется реализация отношений:
1. «быть основой»
2. «ты - мне, я - тебе»
3. «быть разновидностью»
4. «быть частью»
5. «зависеть от»
Читайте также
Даны три массива A,B,C, состоящие из 10 элементов.Присвоить массиву D среднее арифметическое каждого элемента этих трех массивов.(4 стр, 10 столбцов, 0 до 10).Пожалуйста помогите кто умеет решать.Времени мало осталось.Заранее спасибо.
Например:
A B C D
1 2 3 (1+2+3)/3=2
2 3 4 (2+3+4)/3=3
3 4 5 (3+4+5)/3=4
4 5 6 (4+5+6)/3=5
5 6 7 (5+6+7)/3=6
6 7 8 (6+7+8)/3=7
7 8 9 (7+8+9)/3=8
8 9 10 (8+9+10)/3=9
9 10 11 (9+10+11)/3=10
10 11 12 (10+11+12)/3=11
Распишите, всё подробно пожалуйста.
Распишите решение подробно, пожалуйста.
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
Заполнение массива осуществить случайными числами от 5 до 500. Срочном пожалуйста ребят !!