Дан массив состоящий из 10 элементов введенных с клавиатуры вывести номера элементов массива сумма цифр которых равна 5.
Дан массив состоящий из 10 элементов введенных с клавиатуры вывести номера элементов массива сумма цифр которых равна 5.
Гость
Ответ(ы) на вопрос:
Гость uses crt;
var i:integer;
a:array[1..10] of integer;
begin
randomize; for i:=1 to 10 do a[i]:=random(99)+1; for i:=1 to 10 do
begin
if ( (a[i] div 10) + (a[i] mod 10) ) = 5 then
write(a[i],' '); end;
writeln;
readln; end.
Не нашли ответ?
Похожие вопросы