добавляйте подобные задания в раздел Информатика. Там оно найдет решение гораздо быстрее.
uses crt; var a:array[1..100] of integer; n,i,p,q,pr,w,s:integer; begin clrscr; randomize; pr:=1; w:=1; write('p='); read(p); write('q='); read(q); write('n='); read(n);
clrscr;
writeln('Исходный массив: '); for n:=1 to n do begin a[n]:=random(100)-50; s:=s+a[n];
write(a[n],' '); end; w:=2*sqr(s);
writeln; writeln('Новый массив:'); for n:=1 to n do begin if (abs(a[n]) mod p =0) and (a[n]<>0) then pr:=pr*a[n]; if (a[n] mod p=q)then a[n]:=0; write(a[n],' '); end; writeln;
writeln('Значение выражения: ',w); write('Произведение элементов массива, кратных ',p,': ',pr); end.
В своем рассказе «черепаха» Луиджи Пиранделло показывает нам не слишком благополучную семью мистера Мишкоу. Главный герой явно несчастлив в своей семье. И автор создает в своем рассказе такие условия, когда все члены семьи Мишкоу, наконец, показывают свое истинное лицо. И чем дальше, тем хуже. Приходит его жена, и, увидев черепаху, она использует ее как повод для развода. Мистер Мишкоу не хочет расставаться с женой.Целый вечер мистер Мишкоу искал место, где черепашке было бы уютно. Но как не старался, он не смог заставиь себя бросить ее. Вместо этого он понял, что дети его так и останутся «старыми» и безынтересными, а жена все будет искать предлоги для развода. И мистер Мишкоу идет на смелый поступок, он собирается изменить свою жизнь. Он возвращается домой с черепахой, и жена уходит от него. Но он не расстраивается.Теперь он чувствует себя свободнее, никто не терзает его по поводу его маленькой радости завести черепашку, теперь он может делать все-то, что ему нравится. Теперь вокруг него нет лжи, и никто не носит маски, скрывающие правду.
добавляйте подобные задания в раздел Информатика. Там оно найдет решение гораздо быстрее.
uses crt;
var a:array[1..100] of integer;
n,i,p,q,pr,w,s:integer;
begin
clrscr;
randomize;
pr:=1; w:=1;
write('p='); read(p);
write('q='); read(q);
write('n='); read(n);
clrscr;
writeln('Исходный массив: ');
for n:=1 to n do
begin
a[n]:=random(100)-50;
s:=s+a[n];
write(a[n],' ');
end;
w:=2*sqr(s);
writeln;
writeln('Новый массив:');
for n:=1 to n do
begin
if (abs(a[n]) mod p =0) and (a[n]<>0) then pr:=pr*a[n];
if (a[n] mod p=q)then a[n]:=0;
write(a[n],' ');
end;
writeln;
writeln('Значение выражения: ',w);
write('Произведение элементов массива, кратных ',p,': ',pr);
end.
В своем рассказе «черепаха» Луиджи Пиранделло показывает нам не слишком благополучную семью мистера Мишкоу. Главный герой явно несчастлив в своей семье. И автор создает в своем рассказе такие условия, когда все члены семьи Мишкоу, наконец, показывают свое истинное лицо. И чем дальше, тем хуже. Приходит его жена, и, увидев черепаху, она использует ее как повод для развода. Мистер Мишкоу не хочет расставаться с женой.Целый вечер мистер Мишкоу искал место, где черепашке было бы уютно. Но как не старался, он не смог заставиь себя бросить ее. Вместо этого он понял, что дети его так и останутся «старыми» и безынтересными, а жена все будет искать предлоги для развода. И мистер Мишкоу идет на смелый поступок, он собирается изменить свою жизнь. Он возвращается домой с черепахой, и жена уходит от него. Но он не расстраивается.Теперь он чувствует себя свободнее, никто не терзает его по поводу его маленькой радости завести черепашку, теперь он может делать все-то, что ему нравится. Теперь вокруг него нет лжи, и никто не носит маски, скрывающие правду.