Регистрация
Хаурма7
10.11.2020 22:37
Информатика
Есть ответ 👍

Информатика! нужно составить программу на языке паскаль. мама выдала сыну саше сумму денег xна карманные расходы. ежедневно саша в конце дня подводил итоги своим тратам и заносил их в программу. требуется определить на сколько дней ему хватило денег и сколько денег осталось.

262
337
Посмотреть ответы 1

Ответы на вопрос:

AilaRait
AilaRait
4,8(88 оценок)
Var a: array [1..100] of integer; i,n,k,mx: integer; begin   writeln('введите n: ');   readln(n);   mx: =1; k: =0;   writeln('введите массив: ');   for i: =1 to n do   begin   readln(a[i]);   if a[i]> a[mx] then   begin   mx: =i;   k: =0;   end else   if (a[i]=a[mx])and(i< > mx) then k: =k+1;   end;   writeln('количество элементов массива равных максимальному: ',k); end.

Популярно: Информатика