Какие из перечисленных программ не являются прикладными?(один вариант ответа) электронные словари
системы управления базами данных
настольные издательские системы
трансляторы
248
481
Ответы на вопрос:
Const n=3; type lec=record name: string; cost: integer; end; var a: array [1..n] of lec; max1: integer; m,k,p,i: byte; begin for i: =1 to n do with a[i] do begin writeln ('введи наименование товара'); readln (name); writeln ('введи стоимость товара'); readln (cost); end; max1: =-1; for i: =1 to n do if a[i].cost> max1 then begin max1: =a[i].cost; p: =i; end; while k< > 1 do begin for i: =1 to n do if (i< > p) and (a[i].cost=max1) then begin m: =i; k: =1; end; max1: =max1-1; end; writeln (a[p].name,' ',a[p].cost); write (a[m].name,' ',a[m].cost); readln; end.
Популярно: Информатика
-
SergeGu19.05.2020 09:17
-
Yatoi30.04.2022 08:25
-
stas65125.03.2020 19:39
-
OlesyaSteb26.11.2021 19:00
-
dimon543419.06.2020 08:08
-
TDashaS26.04.2022 11:30
-
alinatima3209.02.2022 21:17
-
dali66620.10.2020 17:59
-
Katerina2001512.07.2020 06:44
-
МишаКарпунин04.10.2022 21:55