1) Вася. Задумал ряд чисел 100,120,180,220,10,40,230,50,140,10

Задание:

1) Вася. Задумал ряд чисел 100,120,180,220,10,40,230,50,140,10. Помочь найти 10% от каждого элементамассива 2) Дан массив из 10 элементов необходимо найти количество элементов которые больше 100. ПОМОГИТЕ ПОЖАЛУЙСТА! СРОЧНО НАДО.

Решение:

1.vara: array[1… 10] of integer; i: integer; beginfor i: =1 to 10 dobeginwrite ('Vvedite znachenie elementa: '); readln (a[i]); end; for i: =1 to 10 dowrite (a[i]*0,1,'); end.2.vara: array[1… 10]of integer; i,k: integer; beginfor i: =1 to 10 dobeginwrite ('vvedite znachenie elementa: '); readln (a[i]); if a[i]>100 theninc (k); end; writeln ('Chisel, bolshih 100: ',k); end.

Знаете другой ответ?

Отправить свой ответ