В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
дима55922
дима55922
09.03.2021 22:53 •  Информатика

По экрану слева направо перемещается жёлтый треугольник, а справа налево – красный квадрат. разработайте программу для выполнения этой анимации.

Показать ответ
Ответ:
Sabinafei
Sabinafei
12.04.2020 02:28
#include <iostream>#include <ctime>//Бібліотека для рандомуusing namespace std;int main(){ int array[10];//Масив int Max_Num=0,Min_Num=0;// Мінімальне і Максимальне числа bool Positive_or_negative=0;//Число додатнє чи відємне srand(time(NULL));//Рандом.Кожний раз інший. for(int i=0;i<10;++i) { Positive_or_negative=rand()%2; if(Positive_or_negative==false)//якщо Positive_or_negative==0 { array[i]=-(rand()%10);//Рандом від -10...0 } else { array[i]=rand()%10;//Рандом від 0...10 } if(array[i]>Max_Num)//Пошук макс. числа { Max_Num=array[i]; } if(array[i]<Min_Num)//Пошук Мін. числа { Min_Num=array[i]; } cout<<array[i]<<" "; } cout<<endl<<"Max. number is:"<<Max_Num<<endl;//Вивід максимально числа cout<<"Min. number is:"<<Min_Num<<endl;//Вивід мінімально числа system("pause>>void");//закінчення программи.}
0,0(0 оценок)
Ответ:
mrpersik1
mrpersik1
28.11.2021 17:20

uses crt;
var a:array[1..20] of integer;
b:array[1..20] of integer;
i,j,k,min,max:integer;
begin
writeln('Первый массив: ');
for i:=1 to 20 do begin
a[i]:=random(50-10+1)+10;
write(a[i]:3);
end;
writeln;
writeln('Второй массив: ');
for j:=1 to 20 do begin
b[j]:=random(90-30+1)+30;
write(b[j]:3);
end;
writeln;
min:=60;
writeln('Первый массив в порядке возрастания: ');
for i:=1 to 20 do begin
for j:=1 to 20 do begin
if a[j]<min then begin min:=a[j]; k:=j; end;
end;
a[k]:=60;
write(min:3);
min:=60;
end;
writeln;
max:=0;
writeln('Второй массив в порядке убывания: ');
for j:=1 to 20 do begin
for i:=1 to 20 do begin
if b[i]>max then begin max:=b[i]; k:=i; end;
end;
write(max:3);
b[k]:=0;
max:=0;
end;
writeln;
end.

Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота