Моделью
все варианты
иерархические
макет самолёта
ms paint
табличной
а
смешанную
Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))
Program CrazyCoder;
var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите кол-во смещений: ');
read(n);
repeat
k:=a[2];
for i:=2 to 9 do
a[i]:=a[i+1];
a[10]:=k;
n:=n-1;
until n=0;
writeln('Результат:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end<span>.</span>
В нижнюю часть вводите текст который проверяется на достаточное количество букв, в верхнюю часть вводите искомое слово. Программа различает прописные и строчные буквы.
<span>Саму программу можете увидеть Alt+F11
</span>
В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок