Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
Ответ:
1. Схема в метро
2. Физ. карта
(возможно еще глобус, но вряд-ли)
C++:
#include <iostream>
void main(void) {
std::cout << "y = x2 + 2x - 4 [-10;0]" << endl;
int y;
for(int x=-10;x>=0;x++) {
std::cout << "y = " << x^2 + 2 * x - 4 << endl;
}
}
var
i, s, N: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
s := 0;
for i := 1 to n do
s := s + 2 * i;
Writeln ('Сумма = ' + IntToStr (s));
end;
Const kmax = 20;
var T:array [1..kmax] of integer;
i,k,zero,sum,count:integer;
begin
count:=0;
sum:=0;
repeat
write ('K(K<20) = ');
readln (k);
until k in [1..kmax];
randomize;
for i:=1 to k do
begin
T[i]:=random(14)-5;
write (T[i]:3);
end;
writeln;
zero:=1;
while (zero<=k) and (T[zero]<>0) do inc(zero);
count:=k-zero;
if zero<>kmax then
for i:=zero+1 to k do sum:=sum+T[i];
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',count);
end.
