Ответ:
var
a:integer;
b,c:string;
begin
writeln('--------------------------');
writeln('---Программа знакомства---');
writeln('--------------------------');
writeln('Я персональный ЭВМ,');
writeln('А как зовут тебя?');
readln(b);
writeln('Сколько тебе лет?');
readln(a);
writeln('В каком классе ты учишься?');
readln(c);// цифра и буква
writeln('Рада познакомиться с тобой, '+b);
writeln('Молодец, в '+a+' лет написал такую программу!');
writeln('В твоём '+c+' классе все такие?');
end.
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.
в переменную S вводится возраст Саши ,
в переменную М вводится возраст Маши
если S > M тогда
выводим "Саша старше Маши "
иначе
если S < M тогда
выводим "Маша старше Саши"
иначе
выводим "Саша и Маша ровестники"
Так наверно?
Выделяешь поля, из которых нужно вычислить средний бал, жмякаешь на выделенную синим цветом кнопочку и выбираешь СРЗНАЧ, жмякаешь ОК)