Алгоритм приготовления гречневой каши обыкновенной. )
1. Поставить кастрюлю на стол
2. поставить стакан на стол
3. Поставить упаковку с гречкой на стол
4. поставить графин с водой на стол
5. насыпать полный стакан гречки
6. пересыпать гечку в кастрюлю
7. выполнить 2 раза
7.1 налить полный стакан воды
7.2. перелить стакан воды в кастрюлю
8. зажечь огонь на плите
9. поставить кастрюлю с гречкой на огонь
10. Выполнять пока не закипит
10.1. Ждать
11. Посолить
12. Накрыть крышкой кастрюлю
13. Пока не мин
13.1. Ждать
14. Выключить огонь.
Гречка готова. )
var
b:array[1..100] of integer;
i, count, n:integer;
begin
randomize;
write('n = '); readln(n);
for i := 1 to n do
b[i] := random(51) - 25;
writeln('b[', i, '] = ', b[i]);
end;
writeln;
count := 0;
if b[i] >= 0 then
writeln('b[', i, '] = ', b[i], ' >= 0');
inc(count);
writeln('Count = ', count);
end.
// вторая программа
const
n = 20;
a:array[1..n] of integer;
i, k:integer;
writeln('Исходный массив: ');
a[i] := random(51);
write(a[i], ' ');
write('k = '); readln(k);
if (k > n) or (k < 1) then
writeln('элемента с таким индексом нет');
readln;
Exit;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
Алгоритм приготовления гречневой каши обыкновенной. )
1. Поставить кастрюлю на стол
2. поставить стакан на стол
3. Поставить упаковку с гречкой на стол
4. поставить графин с водой на стол
5. насыпать полный стакан гречки
6. пересыпать гечку в кастрюлю
7. выполнить 2 раза
7.1 налить полный стакан воды
7.2. перелить стакан воды в кастрюлю
8. зажечь огонь на плите
9. поставить кастрюлю с гречкой на огонь
10. Выполнять пока не закипит
10.1. Ждать
11. Посолить
12. Накрыть крышкой кастрюлю
13. Пока не мин
13.1. Ждать
14. Выключить огонь.
Гречка готова. )
var
b:array[1..100] of integer;
i, count, n:integer;
begin
randomize;
write('n = '); readln(n);
for i := 1 to n do
begin
b[i] := random(51) - 25;
writeln('b[', i, '] = ', b[i]);
end;
writeln;
count := 0;
for i := 1 to n do
if b[i] >= 0 then
begin
writeln('b[', i, '] = ', b[i], ' >= 0');
inc(count);
end;
writeln('Count = ', count);
end.
// вторая программа
const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], ' ');
end;
writeln;
write('k = '); readln(k);
if (k > n) or (k < 1) then
begin
writeln('элемента с таким индексом нет');
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
write(a[i], ' ');
readln;
writeln;
end.