Создайте массив из 15 целочисленных элементов

233.����������� �������� ������ ������������ �����, �������� �������� �������� ������������, ����������� ����� ��� ��������� ������� �� ����� �� 1, 2, � , 10 �.

uses crt;
varM:array[1..15] of Integer;
i,Min,Max:Integer;
Begin
Clrscr;
Randomize;
For i:=1 to 15 Do
Begin
M:=(-50+Random(100));
Write(M,’ ‘);
End;
Writeln;
For i:=1 to 15 Do If M>Max Then Max:=M;
Min:=Max;
For i:=1 to 15 Do If M ;
Writeln(‘Minimum: ‘,Min);
Readkey;
End.

�� ������ ���������� ������: S=(a*t*t)/2;

uses crt;
varM:array[1..10] of real;
t:Integer;
Begin
Clrscr;
Randomize;
For t:=1 to 10 Do
Begin
M[t]:=(9.8*sqr(t))/2;
Writeln(M[t]:0:1,’ ‘);
End;
Readkey;
End.

��� �����: ���������� � ���������.

���� �����.

� �������� � ��������� ������ �� ���� ����������� ��������.

���� �����

1. ��������������� ������ (���������� ���� � ����� �����) (1 ���)

2. ����������� ����� (4 ���)

3. ���������� � ��������� ����������� ��������� (������� ��������) (10 ���

4. ������� ����� (��������������� ������) (20 ���)

5. ���������� ������ �����, ����������� ������. (3 ���)

6. �������� ������� (2 ���)

�������:

�������� ������
urok_odnomernye_massivy.rar 79.99 ��

��������������� ��������:

���� �����: ��������� ���������� �������� (10 �����)

��� �����: ���������� � ���������.

  • �������� � ��������� ������ �� ���� ����������� ��������.
  • ��������� ���������� ��������, ��������������� ������.
  • ����������� ������������ ��������, ������������ �� ����� ����������� �������.
  • ����������� ���������� ������� � ��������, ������������� ��������� � �������.

����������� ������������ � ���������:

  • ������������ �����;
  • ����������� ��������;

������������� ����������� �����.

  • ������������ ����������� ���������� ���������� ��������.
  • �������� � ������������������� ��������� �� ������ 5,4 � 3.
  1. ��������������� ������ (���������� ���� � ����� �����) (1 ���)
  2. ����������� ����� (4 ���)
  3. ���������� � ��������� ����������� ��������� (������� ��������) (10 ���
  4. ������� ����� (��������������� ������) (20 ���)
  5. ���������� ������ �����, ����������� ������. (3 ���)
  6. �������� ������� (2 ���)
  1. ��������������� ������ (���������� ���� � ����� �����)
  1. ����������� �����
  1. ����� ���� ���������� ������������ � ����� ���������������� �������? (integer – ������������� ���, real � �������������� ������������ ���)
  2. ��� ����� ������? (������ � �������������, �������� ��������� ��������� ������ ����)
  3. �������� �� �������� ��������� ���������:
  • �1=3 �2=18 �3=9 �4=17 �5=7
  • �1=23 �2=1,8 �3=9,7 �4=1,7 �5=23
  • f1=A �2=H �3=D �4=E �5=T
  1. ��� �������� ��������� ������ �� ����� �������:
  • mas: array [1..8] of real;
  • tar: array [1..50] of integer;
  1. ���������� � ��������� ����������� ��������� (������� ��������)
  1. ������������ ������� ����� ������ ���������� �����.
Читайте также:  Php перевести дату в timestamp

a:array [1..10] of integer;

for i:=1 to 10 do

  1. ������������ ������� � ����������.

a:array [1..10] of integer;

for i:=1 to 10 do

  1. ���������� ����� ��������� �������.

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

  1. ���������� �������� ��������������� ���� ��������� �������.

var s,i:integer; c:real;

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

  1. ���������� ���������� ��������� ������� ���������� ��� �������.

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

if a[i] 5 then k:=k+1;

  1. ���������� ������������� � ������������ �������� � �������.

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

if a[i]>max then max:=a[i];

  1. ���������� ����� ��������� ���������� ��� �������.

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

  1. ���������� �������� ��������������� ��������� ���������� ��� ������������ �������.

var k,s,i:integer; c:real;

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

  1. ������ ��������� ������� ���������� ��� �������.

a:array [1..10] of integer;

for i:=1 to 10 do

for i:=1 to 10 do

for i:=1 to 10 do write (a[i],’ ‘);

  1. ������� ����� (��������������� ������)
  1. �������� ������������� ������ �� 20 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 15 � �������� ��� �� �����. ����������� � �������� �� ����� ������� �������� ���� ��������� �������.
  1. �������� ������������� ������ �� 10 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 9 � �������� ��� �� �����. ����������� � �������� �� ����� ����� ������ ���������.
  1. � ������������� ������� �� 31 �������� �������� �������� ����������� �� ���� � ��� ������ (��������� �������� ����������� �� 0 �� 25). ����� �������� ����������� � ����� ������ ����.
  1. �������� ������������� ������ �� 15 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 9 � �������� ��� �� �����. �������� � ������� �������� ��� ��������� ������� ����� 5-�� �� 10 � �������� ������.
  1. � ������������� ������� �� 31 �������� �������� �������� ����������� �� ���� � ��� ������ (��������� �������� ����������� �� 0 �� 25). � ����� ���� ���� ����� ������ �����������?
  1. �������� ������������� ������ �� 10 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 9 � �������� ��� �� �����. ������� ����� ��������� �������.
  1. �������� ������������� ������ �� 20 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 15 � �������� ��� �� �����. ����������� � �������� �� ����� ���������� �������� ���������.
  1. � ������������� ������� �� 18 ��������� �������� ���������� � ������������ �� ����������� �������� 5 ������ (��������� �������� �� 0 �� 15). ����� � ����� ��������� ��������� � ������� ��� �� �����.
  1. �������� ������������� ������ �� 30 ��������� � ������� ���������� ��������� ����� � ���������� �� 0 �� 20 � �������� ��� �� �����. ����������� � �������� �� ����� ������� �������������� ��� ��� ���������, �������� ������� ����� 10.
  1. � ������������� ������� �� 31 �������� �������� �������� ����������� �� ���� � ��� ������ (��������� �������� ����������� �� 0 �� 25). � ����� ���� ���� ����� ������� �����������?
  1. ���������� ������ �����, ����������� ������.
Читайте также:  Как в контакте написать анонимное сообщение

(�������� ��������� ���� �������������� � �������� ������ �������)

��� ������������� ������ �� 30 ���������. �������� ����� ��������� �������� �� 160 �� 200 � ���� �������� ���������� ������. � ������������� ������� ����� ���, ��� ���� �� ����� 180 ��. ������� �� ������� ����� ��� �� ����� �� ������ ���������������� ��������, ������� ������������ � ������� ����������� ���� ������ ������������� �������. �������������, ��� ���� �� ���� ������ ������ � ������������� �������. �������� ������ ��������� ���, ��� �������� ����. ������������ ������ ���������� �����������.

var A: array[1..N] of integer;

for i:=1 to N do readln(A[i]);

����������� ������ A �� 30 ���������.

����������� ������������� ���������� i , x � y , � ����� ������������ ���������� s .

� ����� �� 1 �� 30 ����������� ��� �������� ������� A � 1-��� �� 30-��.

Интернет-сервис Студворк построен на передовых, современных технологиях и не поддерживает старые браузеры. Для просмотра сайта загрузите и установите любой из следующих браузеров: