// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив',ReadInteger('Введите длину массива'));
var b:=ReadInteger('b =') - 1;
a := a.where((v,i) -> i <> b).ToArray;
a.Println;
end.
Пример:
Введите длину массива 5
Введите массив 1 2 3 4 5
b = 4
1 2 3 5
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.
Самый простой из текстовых редакторов.
Есть у каждого компьютера.
Там можно делать только элементарные вещи.
Т. е. Допустим как в ворде нельзя добавлять фигуры и делать какой то интересный красивый дизайн и не вставить таблицу.
Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
sum=sum+a[i,j];
kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write('srednee= ',sr);
else
write('net takih chisel');
end.