Windows 1251 - 8 бит
КОИ-8 - 8 бит
Не изменяется
1. 123
2. 1453
3. 420
можно не благодарить
// Листинг программы и скриншот результата в приложениях.
const
max_v = 15;
m1 = -20;
m2 = 50;
var i,j:byte;
v:array [1..max_v] of integer;
a,b:integer;
// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();
for i:=1 to max_v do begin
v[i]:=random(m1,m2);
write(v[i]:6);
end;
writeln('');
writeln('');
end;
begin
randomArray('Начальный массив');
writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
for i:=1 to max_v do begin
//десятки числа
a:=v[i] div 10;
//единицы числа
b:=v[i] mod 10;
if (a=7) or (a=5) or (b=7) or (b=5)
then
writeln(v[i]);
end;
end.
Это фоторафии, рисунки, изображения