КТО СДЕЛАЕТ ТОМУ ПЕРЕВЕДУ НА КАРТУ 50 ГРН‼️‼️‼️‼️‼️

1.

program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;

writeln(' ',sum);

end.

 

2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 

3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;

writeln(' ',naib);

end.

var   s:string;
{функция проверки на палиндром} function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;   Result:=fl end;

{основная программа} begin   writeln('Введите строку...');   readln(s);   if palind(s) then     writeln('Данная строка является палиндромом!')   else     writeln('Данная строка НЕ является палиндромом!') end.

Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin   writeln('Введите строку...');   readln(s);
fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;
if palin then     writeln('Данная строка является палиндромом!') else     writeln('Данная строка НЕ является палиндромом!') end.