Задание 3. Проведите поиск информации на сайте Республиканской научно-технический библиотеки по адресу - id2026896420230315 от gazelle116 15.03.2023 20:33

Question

Информатика: Задание 3. Проведите поиск информации на сайте Республиканской научно-технический библиотеки по адресу http://rlst.org.by. Какие информационные ресурсы доступны на сайте? а) Найдите список выдающихся личностей — уроженцев Беларуси, внесших значительный вклад в развитие мировой науки и техники. Главная - Информационные ресурсы - Базы данных - БД Белорус- ские имена в мировой науке и технике - Алфавитный указатель имен. б) Найдите и прочитайте статью по теме «Всемирный день без табака», напечатанную

gazelle116 · Accepted Answer

Var a: array [1..5, 1..5] of integer;
i, m, j: integer;
begin
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(50) - 25;
writeln('[', i, ',', j, '] => ', a[i, j]);
end;

for i := 1 to 5 do
for j := 1 to 5 do
if (a[i, j] mod 2 = 0) then a[i, j] := 30;

writeln();

for i := 1 to 5 do
for j := 1 to 5 do
writeln('[', i, ',', j, '] => ', a[i, j]);
end.

Для второго не понял, как решать ._.

MOGZ ответил