// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.
// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.
// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
Var chisl:array[1..4]of integer;
i,min:integer;
begin
for i:=1 to 4 do begin
Write(i,'-чисдо='); Readln(chisl[i]);
end;
min:=chisl[1];
for i:=1 to 4 do begin
if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.
Посчитаем как обычные числа:
a=1
b=2
d=3
a=2*1=2
b=2+2*3=2+6=8
c=3+1=4
d=2+8-4=6
a=2+8+4=14
<em>ответ
a=14</em>
<em>b=8</em>
<em>c=4</em>
<em>d=6</em>
Http://www.kievoit.ippo.kubg.edu.ua/kievoit/2013/108/108.html
там всё кратко(почти) и понятно
Var a:array [1..50,1..50] of integer;
m,n,i,j,k,max:integer;
begin
writeln ('Введи количество строк и столбцов');
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln ('Максимальный элемент ',i,' строки = ',max);
max:=0;
end;
readln;
end.
