<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
begin //начало программы
var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;
writeln('Введите количество карандашей'); //вывести на экран надпись
readln(nk); // запись ответа пользователя в переменную nk
writeln('Введите количество тетрадей'); //вывод на экран надписи
readln(nt); // запись ответа пользователя
writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи
readln(ck); // запись ответа пользователя в переменную
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки
writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран
end. // конец программы
(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)
(nk-количество карандашей, nt-количество тетрадей)
Смесь на вектор 1.0
опустить перо
сместиться на вектор 0.2
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.
Единица пропускной способности передачи каналов измеряеться в битах за секунду(бит/сек)