var i, n: integer; s: byte; arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
begin write('Enter a number of values: '); readln(n); for i := 0 to (n - 1) do begin arr.Add(random(-50, 50)); write(String.Format('[{0}] => {1}; ', i, arr[i])); if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then s += 1; end; writeln(System.Environment.NewLine, '> ', s); end.
// PascalABC.Net 3.0, сборка 1052 type Matrix=array[,] of integer;
function SumRow(a:Matrix; i:integer):integer; var j,s:integer; begin s:=0; for j:=0 to Length(a,1)-1 do s:=s+a[i,j]; SumRow:=s end;
var i,j,m,n:integer; A:Matrix; begin Write('Введите количество строк и столбцов массива: '); Read(m,n); SetLength(A,m,n); Writeln('Исходный массив'); Randomize; for i:=0 to m-1 do begin for j:=0 to n-1 do begin A[i,j]:=Random(51)-25; // интервал [-25;25] Write(A[i,j]:4) end; Writeln end; Write('Построчные суммы: '); for i:=0 to m-1 do Write(SumRow(A,i),' '); Writeln end.
Program uva; begin write(1000/((50*50*40)/1000000)/2.5, "лимонов и "1000/((50*50*40)/1000000)/2.5*1.5 " апельсинов" ); //50*50*40 ищется объём одной коробки, /1000000 переводится в метры, //1000/((50*50*40)/1000000) ищется количество коробок. нам нужно засунуть в // коробки как можно больше лимонов, т.к. они дороже. но их максимальное //количество соотносится с апельсинами как 1:1,5. Всего частей 1+1,5=2,5 //лимоны отсюда одна часть, значит делим все коробки на количество //частей и получаем количество лимонов. а количество апельсинов просто //умножаем количество лимонов на 1,5 end.
i, n: integer;
s: byte;
arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
begin
write('Enter a number of values: ');
readln(n);
for i := 0 to (n - 1) do
begin
arr.Add(random(-50, 50));
write(String.Format('[{0}] => {1}; ', i, arr[i]));
if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then
s += 1;
end;
writeln(System.Environment.NewLine, '> ', s);
end.