1. Знайдіть середнє арифметичне 5 випадкових - id43943836 от kedasvetlana 23.04.2022 04:36

Question

Информатика: 1. Знайдіть середнє арифметичне 5 випадкових чисел з діапазону (-10,10) 2. Згенеруйте 7 чисел в діапазоні від 2 до 8. Знайдіть їх суму. 3. Створіть цикл, який буде генерувати вам числа від -10 до 10 до тих пір поки не випаде 0. Порахуйте кількість згенерованих чисел. (підказка: цикл з післяумовою) 4. Намалюйте букет маків. Форма пелюстки-коло, кількість пелюсток 4, розмір довільний. Кількість квіток - від 3.

kedasvetlana · Accepted Answer

Program f777; varx: array[1..102] of integer; mult,max,i,num: integer; begin for i: =1 to 6 do readln(x[i]); max: =x[1]; for i: =1 to 6 do if max x[i] then begin max: =x[i]; num: =i; end; num: =num+1; mult: =1; for i: =num to 6+num do begin if i = 6- num then x[mult]: =0 else x[mult]: =x[i]; mult: =mult+1; end; x.print( ); end....

Ответы на вопрос:

Популярно: Информатика