[70б] матрица m [5, 8] заполнить исходную матрицу случайными числами из диапазона от -50 до 50. вывести на экран. в одномерный массив f переписать элементы верхней треугольной. вывести полученный массив на экран и найти в нём и найти min и max по модулю элементы.

===== PascalABC.NET =====

function MinMax(a: array of integer): (integer, integer);

begin

 var min := Abs(a[0]);

 var max := min;

 for var i := 1 to a.High do

   if Abs(a[i]) < min then

     min := Abs(a[i])

   else if Abs(a[i]) > max then

     max := Abs(a[i]);

 Result := (min, max)

end;

begin

 var M := MatrRandom(5, 5, -50, 50);

 M.Println(4);

 var F := M.ElementsWithIndices

   .Where(p -> p[2] >= p[1])

   .Select(p -> p[0])

 .ToArray;

 F.Println;

 var r := MinMax(F);

 Println('Min=', r[0], ' max=', r[1])

end.

Ну, если я правильно понял суть задания, то:

osh - кол-во ошибок, oc - осценка. Соль программы в том, что учитель вбивает количество ошибок, и ему выдается оценка, которую надо поставить. Что-бы программа работала, создашеь кнопку на форме, жмешь по ней два раза в VB, появится окно для ввода кода программы, туда пишешь вот эту команду:   Ocenka()

Потом после этой команды находишь строчку End Sub, она будет перед End Class, и копируешь вот этот код:

 

Sub Ocenka()
Dim osh, oc As Byte
osh = InputBox("Введите количество ошибок")
If osh = 0 Then
oc = 5
ElseIf osh = 1 Then
oc = 4
ElseIf osh = 2 Then
oc = 3
ElseIf osh >= 3 Then
oc = 2
End If
MsgBox("Оценка ученика - " & oc)
End Sub

 

Ну впринципе все) Скрин програмки прилагается)

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

 

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

 

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

 

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

 

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

 

По всем вопросам пиши в ЛС