Ин
Информатика
08.06.2022 04:42
Решено

Напишите команды выборки для получения справки с использованием сложных логических выражений: определить все даты до апреля 2018 года, когда температура была ниже нуля. определить фамилии всех учеников, которые посещают занятия по музыке и по хореографии. получить список всех хорошистов по гуманитарным дисциплинам. определить фамилии авторов книг с названием «сказки», выпущенных после 1985 года. получить фамилии авторов книг и названия книг, выпущенных в период с 1990 по 2000 год. в каждом пункте продумать и проиллюстрировать необходимые поля и записи. нужно выполнить на бланке или в тетради.

Лучшие ответы
glory0211
3
4,4(6 оценок)
08.06.2022 07:53
Const  n = 7; var  a: array [1..n] of integer;         i: integer; begin   writeln('начальный вид массива: ');   for i : = 1 to n do     begin     a[i] : = 5 + random(31);     writeln('a[', i, ']=', a[i]: 3);   end;   writeln('конечный вид массива: ');   for i : = 1 to n do     begin     if a[i] > 15 then a[i] : = 8;     if a[i] = 5 then a[i] : = 0;     writeln('a[', i, ']=', a[i]: 3);   end;   readln end.
Зл0йстудент
10
4,6(67 оценок)
08.06.2022 07:53
Var   a: array[1..12]of integer;   i: integer; begin writeln('исходный массив: '); for i: =1 to 12 do   begin   a[i]: =random(51);   write(a[i]: 4);   end; writeln; if a[5]< a[10] then   begin   a[5]: =a[5]*2;   a[10]: =a[10]*2;   end     else     begin     a[5]: =0;     a[10]: =0;     end; writeln('преобразованный массив: '); for i: =1 to 12 do write(a[i]: 4);     end.  
Присоединяйся к нам!
Зарегестрируйтесь
Уже есть аккаунт? Войти