М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ричбич4
ричбич4
25.02.2022 16:38 •  Информатика

3. Напиши, как будет выглядеть за на выборку, ели надо из таблицы «Зачеты Электротехника» выбрать учащихся, которые сдавали зачет в определенную дату.
4. Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за ответь на во какие по структуре и назначению бывают за ответь, какие элементы управления могут использоваться на форме?
11. Напиши маску ввода для того, чтобы вводилось название только с большой буквы и содержало 8 символов..

👇
Открыть все ответы
Ответ:
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-28,25); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
  Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1,
    ', его значение равно ',a[imin])
end.

Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28
4,6(34 оценок)
Ответ:
bohdankacojs
bohdankacojs
25.02.2022
Var i,n,fs,ls: integer;
    fsz,indf,indl: int64;
    f: file of integer;
begin
  write('n = '); readln(n);
// запись в файл целых чисел  
  assign(f,'input.txt');
  rewrite(f);
  for i:=1 to n do write(f,random(-3000,8000));
  close(f);
// замена элементов в файле  
  assign(f,'input.txt');
  reset(f);
  fsz:=FileSize(f); 
  indf:=0;
  for i:=0 to fsz-1 do
  begin
    read(f,n);
    if ((n mod 2)<>0) and (indf=0) then
    begin
      indf:=i; fs:=n;
    end;  
    if (n mod 2)=0 then
    begin
      indl:=i; ls:=n;
    end;  
  end;
  reset(f);
  seek(f,indf);
  write(f,ls);
  reset(f);
  seek(f,indl);
  write(f,fs);
  close(f);
end.
4,5(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ