Нажимая на кнопку "Задать вопрос", я даю согласие на обработку персональных данных

Задать вопрос
Задать вопрос
  • 1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .

    • 22 May 2012
    • Ответ оставил: Mskokakola20

    uses crt;
    var
    a:array [1..9] of integer;
    i,c,m,n:integer;
    b:real;
    begin
    clrscr;
    randomize();
    c:=1;
    for i:=1 to 9 do
    begin
    if i=c then
    begin
    a[i]:=i+3;
    c:=c+3;
    end
    else
    begin
    if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);
    end;
    write(a[i],' ');
    end;
    readln();
    end.

     

    uses crt;
    var x,y,s,i,j:integer;
    a: array [1..15] of integer;
    begin
    clrscr;
    randomize();
    writeln('Vvedite chislo');
    readln(x);
    writeln('Ishodniy');
    for i:=1 to 15 do
    begin
    a[i]:=random(100);
    write(a[i],' ');
    end;
    writeln;
    writeln;
    writeln('Ispravlenniy');
    for i:=1 to 15 do
    begin
    if a[i]+i<x then
    begin
    a[i]:=(a[i]+i)*2;
    s:=s+a[i];
    textcolor(red);
    write(a[i],' ');
    end else
    begin
    textcolor(white);
    a[i]:=(a[i]+i);
    write(a[i],' ')
    end;
    end;
    writeln;
    textcolor(green);
    writeln('Summa =',s);
    readln;
    end.

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
    На сегодняшний день (01.12.2023) наш сайт содержит 244788 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

When and where are you going to have the celebration In your country at what times are the shops generally open? Почему сокращается численность Казахстанских козерогов?​ Why did people stay in their homes as much as possible?                A. The weather was cold B. There were many thievesC. There were police officers​ Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home​ Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады ​ Что делает человек, чтобы хорошо учиться в школе? Выбери и выпиши глаголы в форме прошедшего времени.1) Did he lived / live with his parents?2) She goed / went to the cinema last weekend.3) We didnt met / meet them at the station.​ Помогите срочно! Rewrite the sentences in reported speech 1. Saule said, "I have never been to Nursultan. I think I will go there next year." 2. Mother said to us, "Did you go to the museum this ... Написать эссе на тему «Преимущества и недостатки игры подростков в компьютерные игры» Кол-во-(90-100 слов) Даю 20 баллов... ​
*{ message }*