1.дан массив целых чисел из 25 элементов. заполнить его случайными числами до 50. найти сумму всех четных элементов массива и их количество. 2.дан массив целых чисел из 25 элементов. заполнить его случайными числами от 0 до 50. заменить все четные элементы на их квадраты, а нечетные удвоить.

1) const n = 25; var m: array [1..n] of integer; i,s,k: integer; begin randomize; for i: =1 to n do m[i]: = random(50); s: =0; k: =0; for i: =1 to n do if m[i] mod 2 =0 then begin s: =s+m[i]; inc(k); end; writeln('summa= ',s,' kol-vo = ',k); readln; end.

//pascal abc.net версия 2.2 сборка 790 var s: string; i,s1: integer; begin; readln(s1);   //вводим число str(s1,s); for i: =1 to length(s) div 2+length(s) mod 2 do {цикл от начала и до середины/центра в зависимости от чётности} begin;     if s[i]< > s[length(s)+1-i] then {если 1 символ не равен последнему, второй-предпоследнему и т.д.}     begin;           writeln('не палиндром');           exit; //если это условие хоть раз верно-программа завершается     end; end; writeln('палиндром'); //если условие не разу не оказалось верным end.пример ввода: 121пример вывода: палиндром

{ по информатике решить в паскале имеется продуктовая база в которой можно закупить партию товара по условиям минимальная стоимость , близость поставки , прочность товара если товар удолетворяет - закупаем если ее удолетворяет - не закупаеммы вводим данные близость поставки, прочность товара, и минимальная стоимость если все три условия выполняются ввыводим закупаем а если не выполняются выводи не закупается}type      waredata = record              minprice: integer;               distance: integer;               strength: real;       end; var      base, client: waredata; begin      base.minprice : = 4;       base.distance : = 57;       base.strength : = 0.25;             read(client.minprice, client.distance, client.strength);       if (client.minprice > = base.minprice)               and (client.distance > = base.distance)               and (client.strength < = base.strength) then              writeln('берем')      else               writeln('не устраивает'); end.