М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
evazorina1
evazorina1
23.11.2022 11:38 •  Информатика

Складіть проект, у якому виконавець Кіт рухається по сцені зліва направо та промовляє слово «Це трикутник» або «Це шестикутник», в залежності від того, до якого кольору він доторкнеться.

👇
Открыть все ответы
Ответ:

program z1;

const n=10;

var i,j,v,m:integer;

a:array [1..n] of integer;

begin

write ('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3)

end;

writeln;

for i:=1 to n-1 do

begin

m:=i;

for j:=i+1 to n do if a[m] > a[j] then m:=j;

v:=a[i];

a[i]:=a[m];

a[m]:=v

end;

write ('Отсортированный массив: ');

for i:=1 to n do write(a[i]:3);

writeln;

write ('Разность между максимальным и минимальным элементами массива: ',a[n]-a[1])

end.

Объяснение:

После сортировки максимальный элемент стоит на последнем месте в массиве, а минимальный на первом

4,7(71 оценок)
Ответ:
marijamz2016
marijamz2016
23.11.2022
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.

Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:

var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.
4,5(51 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ