Васе поручили составить программу-психологический тест, которая бы определяла особенности личности по выбранной геометрической фигуре.
Заполните недостающие места в Васиной программе.

Program Psiholog_test;
1 .
f: 2 . ;
3 .
4 . ('Выберите одну из фигур: треугольник, зигзаг, круг, прямоугольник');
5 . (6 .);
7 . (f='треугольник') 8 . (f='Треугольник') 8 . (f='ТРЕУГОЛЬНИК')
9 .
10 . ('Вы сильная личность, весьма уверенные в себе и деятельные. Не любят сидеть на месте, стремитесь всегда находиться в гуще событий.')
11 .
7 . (f='зигзаг') 8 . (f='ЗИГЗАГ') 8 . (f='Зигзаг')
9 .
10 . (' Вы творчсекая и креативная личность, творец, генератор идей')
11 .
7 . (f='круг') 8 . (f='Круг') 8 . (f='КРУГ')
9 .
10 . (' ВЫ крайне контактные и доброжелательные представители рода человеческого, занимающие позицию миротворца в любых конфликтах.')
11 .
7 . (f='прямоугольник') 8 . (f='Прямоугольник') 8 . (f='ПРЯМОУГОЛЬНИК')
9 .
10 . (' Выбор прямоугольника в качестве основной фигуры может свидетельствовать о непоследовательности, склонности к принятию импульсивных решений, непунктуальности и нервозности. Настроение человека-прямоугольника может многократно меняться даже в течении одного дня, что влечет за собой и изменение его поведения.')
11 .
12 . ('Вы не указали ни одной из перечисленных фигур, либо написали с ошибкой');
13 .

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

murad2097

12.05.2022 13:53

Форма представления однотипных данных...

prisheplub

22.07.2021 01:13

Акпараттык олшем бырлыгы не ушин керек? ...

nastya2735

13.05.2020 18:37

Олшем бырлыктеры озара калай байланысты? ...

maga20082

03.07.2020 00:49

12м х 123гб хелпаните плз...

Polika127

06.07.2021 06:58

Найдите обратная функцию x^-2...

romkastolz

31.08.2020 20:09

Население города увеличивается на 3 процента каждый год. в 2014 году население норода составляло 370000. напишите программу, которая выведет на экран предполагаемую численность...

Mishka0512

28.05.2023 07:12

Установи соответствие между угрозами при работе в сети интернет и их это задание 6 \описаниями мошенничествотроллинг и кибербуллинг интернет-зависимость нарушение авторских...

kettyperry16

07.08.2022 11:52

Для хранения растрового изображения размеров 64*64 пикселя отвели 1 кб памяти. какого максимально возможное число цветов в палитре изображения?...

alianavladova

07.08.2022 11:52

1. целочисленный тип данных: 1. integer 2. real 3. string 4. char 2. операции div и mod используются для переменных типа: 1. char 2. integer 3. string 4. real 3. оператор...

Андрей22111111

07.08.2022 11:52

Сообщение, информационный объём которого равен 2 кбайт, занимает 4 страницы по 32 строки, в каждой из которых записано 32 символа. сколько символов в алфавите, на котором...

Ответ:

borenka

07.05.2020 14:19

Вот решение на C++:

#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;

int main()
{
int n=0;
cout <<"Введите размер массива: ";
cin >>n;
if (n<1)
{
cout <<"Массив не может быть пустым!";
return 1;
}

int a[n];
srand(time(0));
for (int i=0; i<n; i++)
{
int r=rand()%271-100;
a[i]=r;
}

int min=170;
for (int i=0; i<n; i++)
{
if ((a[i]>0) and (a[i]<min)) min=a[i];
}

cout <<"Минимальный положительный элемент иассива: " <<min <<endl;

return 0;
}

0,0(0 оценок)

Ответ:

рол140

08.04.2022 15:31

Const n = 10;
var a:array[1..n]of integer;
min,imin,i,oldmin:integer;
begin
//Заполнение массива значениями в диапазоне
//от -100 до 100
//и одновременно находим минимальный элемент элемент
min:=100;
for i:=1 to n do begin
    a[i]:=random(201)-100;
    if a[i]<= min then
    begin
      min:=a[i];
      imin:=i;//Запомним index минимального
    end;
    write(a[i]:5);
end;
writeln;

//В цикле сдвигаем элементы массива
//до индекса минимального включительно на
//одну позицию вправо
for i:=imin downto 2 do
    a[i]:=a[i-1];
    a[1]:=min;
//вывод элементов массива
for i:=1 to n do write(a[i]:5);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку