Вариант 1.

var тemp: array [3..18] of integer;

имя сколько элементов в массиве? тип данных в

числовой одномерный массив а заполнен последовательно числами 24, 138, 53, 25,76. укажите: значение элемента а[3]. индекс наибольшего элемента

опишите на паскале целочисленный массив из 15 элементов.



задайте значения элементов массива случайным образом из промежутка (-40; 40)



элементы массива по формуле for k: =1 to 10 do a[k]: =2+k*3;

запишите первые 5 элементов



вариант 2.

var qt: array [5..23] of real;

имя сколько элементов в массиве? тип данных в

числовой одномерный массив b заполнен последовательно числами 26, 18, 3, 15, 7. укажите: значение элемента а[4]. индекс наибольшего элемента

опишите на паскале целочисленный массив из 20 элементов.



задайте значения элементов массива случайным образом из промежутка (-30; 30)



элементы массива по формуле for i: =1 to 20 do a[i]: =5+i*i;

запишите первые 5 элементов

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей

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

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

такая

естественная

красота

самая

теплая

: dd что есть, то есть