Склавиатуры вводится матрица вещественных чисел размером n строк на m столбцов. n не превосходит 10, m не превосходит 20. сформировать одномерный массив из средних арифметических отрицательных элементов столбцов матрицы. упорядочить сформированный одномерный массив по убыванию. вывести результаты.

👇

Ответ:

Викуля151515

10.11.2021

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Вводите матрицу [',n,'х',m,'] ***');
var a:=ReadMatrReal(n,m); Writeln;
var b:=a.Cols.Select(r->r.Where(x->x<0).DefaultIfEmpty.Average)
.OrderByDescending(x->x).ToArray;
b.Println
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Вводите матрицу [4х5] ***
8.2 -5.2 4.1 1.3 -8.3
-6 -5.4 -0.1 -2 -8.4
-0.9 -7.7 0.7 8.1 -0.5
-3 2.3 2.4 0.5 -5.7

-0.1 -2 -3.3 -5.725 -6.1

4,4(64 оценок)

Открыть все ответы

Ответ:

kiriolet

10.11.2021

Считаем, что поля записи в текстовом файле разделены символом ";", тогда задачу можно решить так:

type

Person = record

fname: string;//Фамилия ученика

lname: string;//Имя

school: integer;//Номер щколы

end;

var student: Person;

n,s,p:integer;

tmp:string;

fin:text;//Файловая переменная

begin

assign(fin, 'students.txt');

reset(fin);

readln(n);//Получаем номер школы

while not (eof(fin)) do

begin

readln(fin, tmp);//Читаем строку из файла

p:= Pos(';', tmp);

Delete(tmp, 1, p);//удаляем все до первого разделителя

p:= Pos(';', tmp);

Delete(tmp, 1, p);//удаляем все до второго разделителя

// в tmp остался номер школы

student.school:=strtoint(tmp);

if student.school=n then s+=1;

end;

writeln(s);

end.

4,5(32 оценок)

Ответ:

FoxEdit

10.11.2021

Список учеников в файле data.txt(см. вложение)

//Pascal
type
TPupils = record
    firstname, surname: string;
    schoolNumber: integer;
end;

var
f: text;
s, buf: string;
i, j, tmp: byte;
num, countPupils: integer;
A: array [1..200] of TPupils;
begin
assign(f, 'data.txt');
reset(f);
j := 1;
while not eof(f) do
begin
    readln(f, buf);
    buf := buf + ' ';
    tmp := 1;

    for i := 1 to length(buf) do
    begin
      if pos(buf[i], ' ') = 0 then s := s + buf[i]
      else
      begin
        if length(s) > 0 then
        begin
        case tmp of
          1: begin A[j].firstname := s; Inc(tmp); end;
          2: begin A[j].surname := s; Inc(tmp); end;
          3:
          begin
            Val(s, num, num);
            A[j].schoolNumber := num;
          end;
        end;
        //writeln(s);
        s := '';
        end;
      end;
    end;
    Inc(j);
end;
close(f);

write('Введите № школы: ');
readln(num);

for i := 1 to 200 do
begin
    if A[i].schoolNumber = num then
      //writeln(A[i].firstname, ' ', A[i].surname, ' ',
      //        A[i].schoolNumber);
      Inc(countPupils);
end;
writeln('Количество учеников в данной школе = ',
          countPupils);
end.

4,6(63 оценок)

Это интересно:

Взаимоотношения

01.11.2020

Как определить, что девушка пытается увести вашего парня...

Дом-и-сад

10.09.2020

Заставьте ваш филодендрон расцвести: советы по уходу за растением...

Здоровье

05.02.2023

Как сдержать газы: 7 важных советов...

Дом-и-сад