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

Програмирование на языке c++
: (любое сделайте )
3. заповнити масив випадковими оцінками студентів(числа із діапазону 1..12). знайти середню оцінку студентів групи. кількість студентів у групі – деяка константа.
4. утворити одновимірний масив розміром 10. заповнити його числами від 0 до 9, тобто (0, 1, 2, 3, … 9). вивести елементи масиву на екран.
5. утворити одновимірний масив розміром 10. заповнити його числами від 1 до 10. вивести елементи масиву на екран.
6. утворити одновимірний масив розміром 30. заповнити його числами, які є степенями 2: (1, 2, 4, 8, 16, ). вивести елементи масиву на екран. виконати 2-ма утворити одновимірний масив розміром 30. заповнити його числами фібоначі: (1, 1, 2, 3, 5, 8, 13, 21 ). вивести елементи масиву на екран. число фібоначі рівне сумі двох попередніх чисел фібоначі. перші два числа рівні 1.
8. дано одновимірний масив. знайти найбільший та найменший елементи масиву та поміняти їх у масиві місцями.
9. дано одновимірний масив . знайти суму елементів після першого нуля у масиві.

Показать ответ
Ответ:
alexanikulina2
alexanikulina2
08.03.2022 20:12
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
0,0(0 оценок)
Ответ:
poldin04
poldin04
21.11.2021 22:52

var a, b, c, d, min, max: integer;

begin

 // Min

 readln(a, b, c, d);

 if (a <= b) and (a <= c) and (a <= d) then min := a

 else if (b <= a) and (b <= c) and (b <= d) then min := b

 else if (c <= a) and (c <= b) and (c <= d) then min := c

 else if (d <= a) and (d <= b) and (d <= c) then min := d;

 // Max

 if (a >= b) and (a >= c) and (a >= d) then max := a

 else if (b >= a) and (b >= c) and (b >= d) then max := b

 else if (c >= a) and (c >= b) and (c >= d) then max := c

 else if (d >= a) and (d >= b) and (d >= c) then max := d;

   

 writeln('Min: ', min);

 writeln('Max: ', max);

end.

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