1) Const n=10; var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4); if a[i]<0 then s:=s+a[i]; end; writeln; writeln(' S= ',s); end. 2) Const n=20; var i,s:integer; a:array[1..n]of integer; begin for i:=1 to n do begin a[i]:=random(11)+15; write(a[i]:4); if a[i]mod 2=0 then s:=s+a[i]; end; writeln; writeln('S = ',s); end.
ecogoi
30.10.2021
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
type fs=(string,string);
begin var L:=new List<fs>; repeat var aw:=ReadlnString('>').ToWords; if aw.Length=0 then break; L.Add((aw[1],aw[0])) until false; var a:=L.OrderBy(t->t[0]); var i:=1; foreach var x in a do begin Writeln(i:4,' ',x[1],' ',x[0]); i+=1 end end.
Пример > J.X. Smith > B.A. Weiter > A.C. Johnes > 1 A.C. Johnes 2 J.X. Smith 3 B.A. Weiter
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какие программные средства обычно используется для создания компьютерных моделей