В корзине было 44 яблока. Каждые 15 минут из нее брали 4 яблока. Через какое время в корзине не останется яблок? ЗАПИШИТЕ АЛГОРИТМ РЕШЕНИЯ В ВИДЕ БЛОК-СХЕМ И НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ.
Var a, b, s:Integer; tab: array [1..15] of Integer;
begin randomize; for a := 1 to 15 do begin tab[a] := random(-15, 15); writeln(a, ' - элемент = ', tab[a]); end; b := tab[1]; s:=0; for a := 1 to 15 do begin if tab [a] > b then b := tab[a]; s:=s+tab[a]; end; writeln('наибольший элемент массива = ', b); writeln('s = ',s); end.
Пример: 1 - элемент = 15 2 - элемент = -10 3 - элемент = 5 4 - элемент = -6 5 - элемент = -14 6 - элемент = -1 7 - элемент = 9 8 - элемент = -7 9 - элемент = 1 10 - элемент = 15 11 - элемент = -4 12 - элемент = -5 13 - элемент = -6 14 - элемент = 7 15 - элемент = 10 наибольший элемент массива = 15 s = 9
Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.
a, b, s:Integer;
tab: array [1..15] of Integer;
begin
randomize;
for a := 1 to 15 do
begin
tab[a] := random(-15, 15);
writeln(a, ' - элемент = ', tab[a]);
end;
b := tab[1]; s:=0;
for a := 1 to 15 do
begin
if tab [a] > b then b := tab[a];
s:=s+tab[a];
end;
writeln('наибольший элемент массива = ', b);
writeln('s = ',s);
end.
Пример:
1 - элемент = 15
2 - элемент = -10
3 - элемент = 5
4 - элемент = -6
5 - элемент = -14
6 - элемент = -1
7 - элемент = 9
8 - элемент = -7
9 - элемент = 1
10 - элемент = 15
11 - элемент = -4
12 - элемент = -5
13 - элемент = -6
14 - элемент = 7
15 - элемент = 10
наибольший элемент массива = 15
s = 9