Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 ...

July 2021 2 15 Report

Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. Длина массива равна N. Вставить число х после первого элемента кратного пяти

Helptorg Программу полностью написать?

0 votes Thanks 0

13S Да на Паскале

Helptorg Найди Полякова учебник, там таких программ уйма, а переписывать это глупо

HRAshton Const nmax=20;
var a: array [1..nmax+1] of byte;
n, j, i: byte;
x: integer;
begin
repeat
write('Количество элементов, не более ', nmax, ', n=');
   readln(n);
until n in [1..nmax];
for i:=1 to n do a[i]:=random(21);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:4);
writeln;
i := 1;
while (a[i] mod 5<>0) and (i<n) do inc(i);
if (i<n) or ((i=n) and (a[i] mod 5=0)) then
begin
write('x=');
readln(x);
for j:=n downto i+1 do a[j+1]:=a[j];
a[i+1]:=x;
inc(n);
end
   else
   writeln('Нет элемента с заданными свойствами');
writeln('Преобразованный массив');
for i:=1 to n do write(a[i]:4);
writeln;
readln;
end.

1 votes Thanks 1

Answers & Comments

pomogite s zadaniem pliz53ed2d6664de39ed5ead2a55d5281566 94628

napishite programmu na yazyke paskal dlya resheniya sleduyushej zadachidan massiv veshe

dano naturalnoe chislo n najti summu i kolichestvo chyotnyh cifr na paskale

u shkolnikov bylo s rublej butylka s sokom stoit p rublej pustaya butylka stoit

dano naturalnoe chislo n i posledovatelnost a1 a2 an naturalnyh chisel

dano naturalnoe chislo n i massiv naturalnyh chisel a zadannyh sluchajnym obrazo

dano naturalnoe chislo n i posledovatelnost a1a2an naturalnyh chisel z

dano naturalnoe chislo n vychislit proizvedenie ego cifr na paskale

nuzhna vasha pomosh zadanie na kartinke

perevesti chislo 121210 iz troichnoj sistemy schisleniya v shestnadcaterichnuyu podr

рекомендуемые вопросы

Helpful Links

Helpful Social