Мы ходили в кино, было очень весело! В этом фильме было множество различных актеров ,злодеи и герои участвовали! Мне понравились все актеры но самым любимым актером стал (например Космонавт) он мир!
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; var k:=0; for var i:=0 to a.Length-1 do if a[i]>7 then begin a[i]:=7; Inc(k) end; a.Println; Writeln('Количество замен равно ',k); // если нужно общее количество семерок, замените // предыдущую строку следующей: // Writeln('Количество семерок равно ',a.Where(x->x=7).Count); end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var a:=ArrRandom(20,-5,8); a.Println; var b:=a.Where(x->x<>0).ToArray; b.Println; Writeln('Количество нулей равно ',20-b.Count); end.
Var ar:array[1..n] of integer; pro,i,k:uint64; begin randomize; pro:=1; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(22,23); //Серьёно? write(ar[i]:4); pro:=pro*ar[i]; end; writeln; writeln('Pro=',pro); write('Enter value:'); readln(k); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]+k; write(ar[i]:6); end; end.
Пример работы программы: First array: 23 23 22 22 22 22 23 23 23 22 23 22 22 23 23 Pro=10868183115618730368 Enter value:3 Final array: 26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
