В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
milana20123
milana20123
09.10.2021 21:23 •  Информатика

Сделать сор по информатике надо​

Показать ответ
Ответ:
nasamar
nasamar
08.05.2022 16:35
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
  var s:=ReadAllLines('1.txt');
  Writeln('Считано:'); s.Println(NewLine);
  var a:=s.Select(x->x.Replace(';',' ')).ToArray
    .JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0))
    .Select(x->Trunc(x)).ToArray;
  Writeln('Получено:'); a.Println();
  Writeln('Справочно: тип А - ',a.GetType);
end.

Тестовое решение
Считано:
1;-312;-41.11;412.11
43.63;-15;27;7.62;3;-14
1342;23.23;-32.19;18
Получено:
1 27 3 1342 18
Справочно: тип А - System.Int32[]

Тестовый файл 1.txt дан во вложении.
0,0(0 оценок)
Ответ:
andreevigor200
andreevigor200
04.09.2022 12:50
Const
    n = 3;
    m = 3;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(20) - 10;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
                a[i, j] := sqr(a[i, j]);
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота