Дам 50 баллов!
Составьте, пожалуйста, программу на паскале:
В массиве хранится информация о количестве осадков, выпавших за каждый день июля. Определить самый жаркий день.
Составьте, пожалуйста, программу на паскале:
В массиве хранится информация о количестве осадков, выпавших за каждый день июля. Определить самый жаркий день.
More Questions From This User See All
Answers & Comments
var july : array [1..31] of integer;
i, max : integer;
begin
randomize;
max := -100;
writeln('температура в июле по дням:');
for i := 1 to 31 do
begin
july[i] := random(25) + random(15);
write(july[i]:4);
if july[i] > max then max := july[i]
end;
writeln('дни с максимальной температурой (равной ', max, ' гр. С):');
for i := 1 to 31 do
if july[i] = max then
write(i, ' июля ');
readln end.
там если что меняй)
если неправильно репортани (сори)