Pascal: 1) const n = 10; var a:array [1..n] of integer; i:integer; begin randomize; for i:=1 to n do begin a[i]:=random(21)-10; write (a[i]:3); end; writeln; for i:=1 to n do begin if a[i]>0 then a[i]:=99; write (a[i]:3); end; writeln; end.
2) const n = 10; var a:array [1..n] of integer; p,s,i:longint; begin p:=1; s:=0; randomize; for i:=1 to n do begin a[i]:=random(21)-10; if a[i]>0 then p:=p*a[i] else if a[i]<0 then s:=s+a[i]; write(a[i]:3); end; writeln; writeln ('Proizvedenie: ',p); writeln ('Summa: ',s); end.
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку