Задание:
Сформируйте массив С (1… 8) вещественных элементов вводом с клавиатуры. Выведите на экран количество и произведение элементов, кратных 8.
Решение:
var c: array[1… 8] of real; i,k: integer; p: real; Begin p: =1; for i: =1 to 8 do begin readln (c[i]); if c[i] mod 8=0 then begin p: =p*c[i]; k: =k+1; end; end; writeln (p,k); End.
Знаете другой ответ?