Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;

BEGIN
CLRSCR;
For i:=1 to 10 do
  begin
A[i]:=i+i+1;
Write(A[i],' ');
  end;

READLN;
<span>END.

2)
USES CRT;
VAR A:array[1..10] of integer;
  i:integer;

BEGIN
CLRSCR;
For i:=1 to 10 do
begin
  A[i]:=i+i+i;
  Write(A[i],' ');
end;

READLN;
<span>END.</span></span>

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу которая проверяет находится ли в массиве введенное с клавиатуры число. массив должен вводиться случайным обра

Mali

var

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

i,n,k:integer;

f:boolean;

begin

write ('Razmer massiva (N<100): ');readln(n);

for i:=1 to n do begin

a[i]:=random(36)-10;

write (a[i],' ');

end;

writeln;

write ('Number: ');readln(k);

f:=false;

for i:=1 to n do

if a[i]=k then f:=true;

writeln (f);

readln;

end.

Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.

0 0

3 года назад

Прочитать ещё 2 ответа

РЕШИТЕ РЕБУСЫ НАДО СРОЧНО!!!

egor93 [7]

Ответ:

КОМПЬЮТЕР

Объяснение:

1)к "О" - "М"

2)на рисунке "ПУТЬ". У заменяем на ЬЮ. Апостроф после рисунка говорит, что забираем из слова последнюю букву. Так "ПУТЬ" превращается в "ПЬЮТ"

3)"СЕРДЦЕ", апостроф спереди и три апострофа после рисунка - забираем одну букву сначала слова и три в конце. Остается "ЕР"

0 0

3 года назад

Найти минимальный элемент массива из 10 целых чисел и вывести его на экран с указанием номера(помогите пожалуйста в Pascal)

Жорж Евстегнеев

Я не знаю паскаль. Но вот программа на бейсике. Замените операторы, добавьте объявление переменных и получите свою программу

0 0

3 года назад