4 года назад

Напишите программу в паскале на нахождение суммы главных диагоналей для квадратной матрицы. Помогите, пожалуйста

1 ответ:

asti fresh [1]4 года назад

0 0

<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>

Читайте также

Что видим на экране после выполнения следующего фрагмента: Writeln ('уда','чи');

Неизвестный111

Write - оператор вывода, выводит всё, что написано в скобках (в вашем случае), так же он может работать чуть по-другому, но не об этом сейчас.
Сначала выведет "уда" потом "чи", так как пробела нигде нет, то итогом будет "удачи".

Ответ: удачи

0 0

4 года назад

Помогите с программированием! Задание: Нужно нарисовать блок схему и написать программу к задаче. Программу писать нужно на язы

ANB7 [148]

Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;

begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.

Результат:
P = 840

0 0

4 года назад

Напишите программу, которая,используя процедуру writeln, изобразит на экране домик. Подпишите домик своей фамилией. Фамилию запр

Zaituna

Program Task28;
uses crt;
Var n:string;
Begin
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый}
writeln(' ___/\___');
writeln(' __/__\___');
writeln(' __/___\__');
writeln(' __/____\__');
writeln('__/______\__');
writeln(' _|________|_');
writeln(' _|________|_');
writeln(' _|' , n , '|_');
writeln(' _|________|_'); Readkey;End.

0 0

1 год назад

Закончи фразеологизмы:От нечего ____________________________________________Ни к селу __________________________________________

Ирина Носова

Ни к селу, ни к городу
утереть нос
зарубить на носу
с минуты на минуту
прикусить губу
в час по чайной ложке

Поминай как звали
ни в зуб ногой
легок на помине
с горем пополам

0 0

5 лет назад

Прочитать ещё 2 ответа

Составьте программу, которая формирует массив из 20 случайных чисел от -10 до 10выводит на экрын элементы с нулевыми значениями

оксана гуляй

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;

begin
N := 20;
for i:=1 to N do
a[i] := Random(20)-10;
writeln('Элементы массива: ');
for i:=1 to N do
write (a[i],' ');
writeln;
for i:=1 to N do
begin
if (a[i]=0) then
writeln(a[i],' ',i);
end;
end.

0 0

4 года назад