Информатика, опубликовано 06.06.2020 20:39
Используя набор данных "Товарооборот СССР с некоторыми странами" (Приложение, №10),
построить линейную диаграмму, отражающую импорт из разных стран в 1989-1990 гг.
Товарооборот СССР с некоторыми странами
В 1990 г. импорт из ФРГ составил 4976,4 млн. руб. В 1989 г. экспорт в Японию составил 1184,2
млн. руб. В 1989 г. экспорт в Италию составил 1691,2 млн. руб. В 1989 г. импорт из Франции
составил 1189,9 млн. руб. В 1990 г. импорт из Австрии составил 1004,5 млн. руб. В 1990 г. импорт
из Японии составил 2138,0 млн. руб. В 1989 г. экспорт в Великобританию составил
1794,1 млн. руб. В 1989 г. импорт из ФРГ составил 3231,3 млн. руб. В 1989 г. экспорт в Австрию
составил 454,9 млн. руб. В 1990 г. экспорт в Финляндию составил 1758,8 млн. руб. В 1989 г.
экспорт в США составил 331,5 млн. руб. В 1989 г. импорт из Великобритании составил 623,1 млн.
руб. В 1990 г. экспорт в Италию составил 1920,1 млн. руб. В 1989 г. импорт из Японии составил
1950,9 млн. руб. В 1990 г. импорт из США составил 2865,2 млн. руб. В 1990 г. экспорт в
Великобританию составил 2208,7 млн. руб. В 1989 г. экспорт во Францию составил 1578,0 млн.
руб. В 1990 г. импорт из Великобритании составил 1009,1 млн. руб. В 1989 г. импорт из Австрии
составил 711,7 млн. руб. В 1989 г. импорт из Италии составил 1343,1 млн. руб. В 1990 г. экспорт в
ФРГ составил 2478,3 млн. руб. В1989г. импорт из США составил 1772,6 млн. руб. В 1990 г. импорт из Италии составил 1606,3 млн. руб. В 1990 г. экспорт в США составил 527,7 млн. руб. В
1989 г. импорт из Финляндии составил 2188,3 млн. руб. В 1990 г. импорт из Франции составил
1218,4 млн. руб. В 1990 г. экспорт в Японию составил 1343,0 млн. руб. В 1989 г. экспорт в
Финляндию составил 1528,7 млн. руб. В 1990 г. экспорт в Австрию составил 429,6 млн. руб. В
1989 г. экспорт в ФРГ составил 2397,2 млн. руб. В 1990 г. импорт из Финляндии составил
2126,8 млн. руб. В 1990 г. экспорт во Францию составил 1348,6 млн. руб.
Ответ оставил: Гость
Program glg;
var
a:array[1..10] of integer;
min, kol: integer;
begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end
i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.
Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)
var
a:array[1..10] of integer;
min, kol: integer;
begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end
i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.
Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01