<em>Проверено на fpc 3.0.0 </em>
const
m=6; // строк
n=9; // столбцов
var
a:array[1..m,1..n] of integer;
i,j,k1,k2,s,k:integer;
begin
Writeln('Введите границы диапазона: '); Read(k1,k2);
Randomize;
s:=0; k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99; // [-99;99]
Write(a[i,j]:4);
if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
Inc(k); s:=s+a[i,j]
end
end;
Writeln
end;
Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
<u>Пример</u>
Введите границы диапазона:
-20 55
-2 -52 -11 -12 70 -15 90 -51 75
-54 -92 32 54 -72 -24 -40 -37 -20
0 -14 -79 -1 -39 -34 39 47 34
-91 -98 -68 -16 -56 -55 97 66 59
-48 -67 -34 92 -77 12 -67 -23 -90
75 85 65 -98 -58 -53 -6 34 33
Отобрано элементов: 18, их сумма равна 188
1 Гбайт= 1024 Мбайт
1 Мбайт = 1024 Кбайт
1 Кбайт= 1024 Байт
1 Байт= 8 бит
Приведенные величины являются единицами измерения объема информации
)напиши куда слово встовлять(вначало, вконец, посередине...);
<span>program z2; </span>
<span>var s,s1:string; </span>
<span>a:integer; </span>
<span>begin </span>
<span>write('Введите слово: ');read(s1); </span>
<span>write('Введите строку: ');read(s); </span>
<span>s:=s+' '; </span>
<span>a:=length(s); </span>
<span>writeln(a); </span>
<span>insert(s1,s,a+1); </span>
<span>writeln('Преобразованная строка: ',s); </span>
<span>end. </span>
<span>2) </span>
<span>program z1; </span>
<span>var s:string; </span>
<span>i,kol:integer; </span>
<span>begin </span>
<span>writeln('Введите строку'); </span>
<span>read(s); </span>
<span>kol:=0; </span>
<span>for i:=1 to length(s) do </span>
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
# Код на ruby 2.2.3p173
def zadanie(results)
results = results.sort.reverse
return [results[0], results[1]]
end
# Примеры применения
p zadanie([1,2,7,8,6,4,8,8,4,9])
Провайдер.и все.больше ничего