Begin
var arr := arrGen(ReadInteger('Введите n: '), e -> ReadInteger()).Println().ToArray();
var sum := arr.Skip(arr.Length - 5).Sum();
Println(sum);
arr[0] := arr[0] < 0 ? arr[0] : sum;
arr.Println();
end.
1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29
<span>Позволяет выбрать гарнитуру,
размер и начертание используемого шрифта.
Форматирование текста проще говоря.</span>
1. Объект
2. Имена объектов
3. Общее имя
4. Единичное имя
5. Собственное имя
6. Наука информатика
По своему опыту в программировании(PHP) могу сказать тебе:
нужно использовать условные операторы(if-else) конструкция должна быть примерно такой:
if($day == "1") {
echo="Понедельник";
}
$day - переменная в PHP
echo - оператор вывода, в Паскале похожий - write
Вот, по мои советам меняй мой код на свой!
