Полное решение, все задания
Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+5 else
y:=x+10;
writeln('y=',y);
end.
Ответ:
1) Дарья
Объяснение:
<h3>Дарья</h3>
д - согласная, я - гласная
НЕ (истина И истина) = НЕ истина = ложь
<h3>Павел</h3>
п - согласная, л - согласная
НЕ (истина И ложь) = НЕ ложь = истина
<h3>
Абрам</h3>
а - гласная, м - согласная
НЕ (ложь И ложь) = НЕ ложь = истина
<h3>Анфиса</h3>
а - гласная, а - гласная
НЕ (ложь И истина) = НЕ ложь = истина
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=4;
var n:=5;
var a:=MatrRandom(m,n,10,99);
a.Println(3); Writeln('-'*3*n);
Writeln('Произведение элементов первой строки: ',
a.Row(0).Aggregate(int64(1),(a,b)->a*b));
Writeln('Сумма элементов пятого столбца: ',a.Col(4).Sum);
var b:=a.Cols.Select(x->x.Min).ToArray;
b.Print; Writeln(' - минимумы поколонно');
var im:=b.IndexMin;
Writeln('Удаляем столбец ',im+1,' с минимальным элементом');
n-=1;
var c:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if j<im then c[i,j]:=a[i,j]
else c[i,j]:=a[i,j+1];
c.Print(3); Writeln('-'*3*n);
Writeln('Транспонируем матрицу');
c:=Transpose(c); c.Print(3)
end.
<u>Пример</u>
96 44 59 13 77
41 15 19 20 37
43 63 51 87 85
26 39 49 84 85
---------------
Произведение элементов первой строки: 249465216
Сумма элементов пятого столбца: 284
26 15 19 13 37 - минимумы поколонно
Удаляем столбец 4 с минимальным элементом
96 44 59 77
41 15 19 37
43 63 51 85
26 39 49 85
------------
Транспонируем матрицу
96 41 43 26
44 15 63 39
59 19 51 49
77 37 85 85
<span>Program Сhisla;</span>
<span>var</span>
<span>a, s, n: integer;</span>
<span>Begin</span>
<span>s:=0;</span>
For n:= 1 to 20 do begin
Write (' Введите число А=');
<span>read (a,);</span>
<span>s:= s + a;</span>
end;
<span>write ('Сумма 20 чисел пользователя = ', s);</span>
<span>End.</span>