В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.
1)Олег скопировал рисунок, Игорь скопировал текстовый файл, а Юля- аудиофайл.
2) на букву В.
Uses crt;
var five,two,a,N,i: integer;
begin
clrscr;
five:=0;
two:=0;
readln (N); // кол-во учеников
i:=1 to N do
begin
read (a); // ввод оценок через пробел
case a of // выбор и подсчёт кол-ва
2: two:=two+1;
5: five:=five+1;
end;
end;
writeln ('Five: ',five); // вывод результата
writeln ('Two: ',two);
readln ();
<span>end.</span>
А) Таблица;
Б) Многоуровневый маркированный список;
В) Нумерованный;
Г) Нумерованный;
Д) Многоуровневый нумерованный список.
PS Нумерованные и маркированные списки, на мой взгляд, в данных ответах выбраны оптимальными, но они могут быть заменены друг другом.