Предмет: Информатика,
автор: spiridonovnout
Дано целое число N – количество элементов массива. Вывести те цифры элементов массива, которые содержатся хотя бы в одном из разрядов сотен.Если таких цифр нет, выведите сообщение "Таких цифр нет".Паскаль abc
Ответы
Автор ответа:
0
var
A:array of integer; // Динамический массив
n,i:integer;
flag:boolean;
begin
readln(n);
SetLength(A,n); // Выделение памяти
randomize;
for i:=0 to n-1 do
A[i]:=random(1000);
flag:=false;
for i:=0 to n-1 do
if (A[i] div 100)>0 then
begin
write (A[i]:4);
flag:=true;
end;
if not(flag) then writeln('Таких цифр нет');
end.
A:array of integer; // Динамический массив
n,i:integer;
flag:boolean;
begin
readln(n);
SetLength(A,n); // Выделение памяти
randomize;
for i:=0 to n-1 do
A[i]:=random(1000);
flag:=false;
for i:=0 to n-1 do
if (A[i] div 100)>0 then
begin
write (A[i]:4);
flag:=true;
end;
if not(flag) then writeln('Таких цифр нет');
end.
Автор ответа:
0
Можешь показать решение этой задачи с помощью множеств?
Автор ответа:
0
Да
Автор ответа:
0
http://znanija.com/task/15364928
Автор ответа:
0
http://znanija.com/task/15364900
Похожие вопросы
Предмет: Русский язык,
автор: toregalymn
Предмет: Математика,
автор: VeraSh123
Предмет: Русский язык,
автор: myrzakhmetovabalnur
Предмет: История,
автор: Lero4ka14
Предмет: Математика,
автор: swetlanaprya