Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
Вот задача. Выводит номер элемента массива и само значение.
Program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
Попробуйте взять элементы физики, такие как разделы кинематики, динамики и прочее.
<span>Можно взять тело брошенное под определенным углом и смотреть его траекторию.
</span>
К миру мышления человеку.
Вот правило:
Понятие - это объект внутреннего мира человека. Оно изменяется с течением времени по мере взаимодействию человека с объектом.