Щас ебанет..

а шо за аэропорт новый к ЧМ 2018 ? строить будут ?

Да пошел дождик...

опять больше напугало, чем полило. придется вечером на дачу ехать. поливать помидоры и прочие овощи

типа с любовницей на погоду будет похер?

Замечать даже не будешь первое время и время суток ...

... а помидоры уже будут пох...

.. ааааа засохли они потому, что дождь невьебенно сильный был и все переполил...

Ветер скажет виноват суходуйка..

Адреналинчик..потом внебрачные дети..

... и всё по новой ... и опять дача ...

кинь в личку, че-нить налабаю, если вспомню))) я паскаль с 2007 в руки не брал

Ок..мне хоть чтонить надо написать..думаю проверять особо не будут..это контральная за год первое полугодие..или второе..задним числом..

фу.. если у любовницы мохнатка - это же отвратительно. тети должны следить за собой. ишо бородой запутаюсь....
дуглас там не уточнял? он случаем не целебной шерстью вылечился?

Написать программы на языке Паскаль:
1. Дан массив А(n). Вывести на экран те, у которых остаток от деления на 5 равен 3.
2. Дан массив C(m,n). Найти сумму элементов главной диагонали, которые больше 5.
3. Дан массив  D(m). Поменять местами первый и последний элемент массива.

Вот илюха!!!!!

проверять работу можно тут: http://pascalabc.net/WDE/

1.

var A: array[1..100] of integer;
    n,i:integer;
    flag:boolean; 
 
begin
  flag:=false;
  repeat
  write('Введите размер массива (не больше 100)');
  readln(n);
  until n < 100;
    for i:= 1 to n do begin
    write('Введите ',i,'-ое число массива');
    readln(A);
  end;
  for i:= 1 to n do begin
    if (A mod 5 = 3) then begin
    flag:=true;
    writeln(A);
    end;
  end;
  if not flag then writeln('в данном массиве нет чисел, которые при делении на 5 дают в остатке 3');
 
end.

Едрён батон......

можно ишо интерактивности добавить - типа шоб пользователь сам вводил и на что делить и что в остатке получать... ну это если нужно конечно

Ненененееееее илюха....спасибо большое..и так сложно выглядит:)))

Нет вроде..не писали об этом..