Hkolnik32

08.02.2021 06:02

Информатика

Есть ответ 👍

Язык программирования паскаль. 1) найти количество отрицательных элементов в массиве а [3,8]. 2) заполнит и вывести массив р [6,7], запросить номер строки и вывести её на экран. 3) заполнить и вывести массив р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив. 4) в квадратной матрице а [10,10] заменить элементы главной диагонали на 0. всё нужно

210

308

Посмотреть ответы 2

Ответы на вопрос:

rasaka123

Информатика

4,7(12 оценок)

1var i, j, n: integer; a: array[1..3, 1..8]of integer; begin for i : = 1 to 3 do begin for j : = 1 to 8 do begin a[i, j] : = random(-9, 9); write(a[i, j]: 3); if a[i, j] < 0 then n : = n + 1; end; writeln; end; writeln('количество отрицательных: ', n); end.2var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i : = 1 to 6 do begin for j : = 1 to 7 do begin p[i, j] : = random(-9, 9); write(p[i, j]: 3); end; writeln; end; write('какую строку вывести: '); readln(n); for j: =1 to 7 do write(p[n,j]: 3); end.3var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i : = 1 to 6 do begin for j : = 1 to 7 do begin p[i, j] : = random(-9, 9); write(p[i, j]: 3); end; writeln; end; write('какую строку изменить: '); readln(n); for j: =1 to 7 do p[n,j]: =5; for i : = 1 to 6 do begin for j : = 1 to 7 do write(p[i, j]: 3); writeln; end; end.4var i, j, n: integer; a: array[1..10, 1..10]of integer; begin for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(-9, 9); write(a[i, j]: 3); end; writeln; end; for j: =1 to 10 do a[j,j]: =0; writeln('измененный массив: '); for i : = 1 to 10 do begin for j : = 1 to 10 do write(a[i, j]: 3); writeln; end; end.

linabananchik

Информатика

4,8(91 оценок)

ответ: На во ответил правильно, не понял...... тебе перевод нужен?????

Объяснение:не знаю ли тебе это:

program test;

uses crt;

var i,right,mark,v: longint;

answer,true1,true2,true3,true4,true5: char;

begin

right:=0; // Счётчик правильных ответов

v:=5; // Количество во Правильный ответ на во Во Вариант ответа');

writeln('b) вариант ответа');

writeln('c) Вариант ответа');

read(answer);

if answer=true1 then inc(right);

end;

if i=2 then begin

writeln('Во Вариант ответа');

writeln('b) Вариант ответа');

writeln('c) Вариант ответа');

read(answer);

if answer=true2 then inc(right);

end;

if i=3 then begin

writeln('Во Вариант ответа');

writeln('b) Вариант ответа');

writeln('c) Вариант ответа');

read(answer);

if answer=true3 then inc(right);

end;

if i=4 then begin

writeln('Во Вариант ответа');

writeln('b) Вариант ответа');

writeln('c) Вариант ответа');

read(answer);

if answer=true4 then inc(right);

end;

if i=5 then begin

writeln('Во Вариант ответа');

writeln('b) Вариант ответа');

writeln('c) Вариант ответа');

read(answer);

if answer=true5 then inc(right);

end;

if right>1 then mark:=right

else mark:=2; // Оценка, если во больше 5, то там другая формула.

writeln('Ваша оценка ',mark,'. Вы дали ',right,' правильных ответов');

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.