Кто нибудь знает паскаль?? - PROFIWM.COM

Купить рекламу

Шины и диски для настоящих боссов дороги;

Обновить | Подписаться | Поднять тему

Чтобы выполнить действие авторизируйтесь или пройдите регистрацию на сайте.

11.

Maratos668

0.31

[автор] (2 июл 2014, 19:25) [0/0] [0] [отв] [спам] [под] +1 | -1

-=ZmeY=-,

а кто эт??

12.

InterStep

1.91

(2 июл 2014, 19:26) [0/0] [0] [отв] [спам] [под] +1 | -1

Смотря че за задачи Чет помню еще..

13.

Maratos668

0.31

[автор] (2 июл 2014, 19:27) [0/0] [0] [отв] [спам] [под] +1 | -1

InterStep,

дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшую нечетную сумму двух соседних элементов массива

14.

axer

2.42

(2 июл 2014, 19:27) [0/0] [0] [отв] [спам] [под] +1 | -1

Я знаю. Пиши в лс)))

15.

InterStep

1.91

(2 июл 2014, 19:30) [0/0] [0] [отв] [спам] [под] +1 | -1

Program ht1;
const n = 70;

var
mas: array[1..n] Of integer;

i, min: integer;

begin
min := 100;
for i := 1 to n do
begin
mas[i] := random(69) + 1;
Write(mas[i]:3);
end;
for i := 2 to n do
begin
if(((mas [i] + mas[i - 1]) mod 2) <> 0) then
if(min > mas[i] + mas[i - 1]) then
min := mas[i] + mas[i - 1];
end;

Writeln;
Write('Не чётная минимальная сумма: ', min);

end.