Информатика, опубликовано 21.10.2019 23:00
85б.> в паскале pascal pascalabc
1. по углам окна (640х400) нарисовать по одной окружности радиусом 15 и закрасить их разными цветами.
2. запросить с клавиатуры слово и число до 1, определить количество в них знаков, напечатать результат на экране.
3.в заданном двумерном массиве поменять местами следующие два элемента: минимальный и максимальный.
Ответы
Ответ оставил: Гость
Исполнитель;)спасибо ненужно)))Ответ оставил: Гость
Program glg;var
a:array[1..10] of integer;
min, kol: integer;
begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end
i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.
Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)
Ответ оставил: Гость
Частное будет меньше 1 если b будет больше aОтвет оставил: Гость
Рифма какой то песни что ли?
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
