<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal; var y:=x*x+11; Writeln(y)
end.
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
<h2>Задание 1</h2>
(смотри первую прикреплённую фотографию)
<h2>Задание 2</h2>
(смотри вторую прикреплённую фотографию)
Если код второго задания для Вас "сложен", то, извините, Вам придётся для работы каждого типа с каждым писать отдельные перегрузки:
float и int, double и int, float и double, size_t и int. В общем - таких типов очень много и полноценный калькулятор у Вас выйдет на 100+ строк.
Шаблоны изучаются вначале, так как позволяют избежать вот таких ситуаций.
Если первая буква гласная, то удалить её и вывести полученное, а если согласная, то просто вывести.
