=
Объяснение:
const
nmax=100;
type
Tarr=array[1..nmax] of integer;
var
a:Tarr;
i,n:integer;
begin
randomize;
repeat
write('Razmer massiva, ne bolee ',nmax,': ');
readln(n);
until n in [1..nmax];
writeln('Ishodniy massiv:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
i:=1;
while (i<=n) and (a[i] mod 5<>0) do
inc(i);
if i>n then
writeln('Net elementov kratyh 5')
else
begin
a[i]:=0;
writeln('Poluchenniy massiv:');
for i:=1 to n do
write(a[i]:4);
writeln;
end;
end.
1:Будьте вежливы,2Не забывайте про обязательные формулы приветствия, прощания, обращения, выражения благодарности 3:Избегайте пустословия, и старайтесь не тратить время собеседника понапрасну. 4:Вычитывайте и редактируйте свои сообщения и электронные письма перед отправкой, не отправляйте собеседнику бессмыслицу или безграмотный текст. 5:Не опускайтесь до грубых оскорблений. Вежливость уместна даже тогда, когда ваш оппонент оказывается откровенным хамом. 6:Не отказывайте в Вы можете советом, отправить ссылку на нужный ресурс, ответить на вопрос, дать консультацию. 7:Не пытайтесь поучать собеседника
8:
Будьте снисходительны к ошибкам других, на невольные огрехи в фразах вполне можно закрыть глаза
Объяснение:
гы
