М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Romlik
Romlik
26.11.2020 15:29 •  Информатика

Написать программу в паскале для 6 элементов, где каждый элемент увеличить в 2 раза

👇
Ответ:
Diana3737
Diana3737
26.11.2020

Program n_1;

uses math;

var a:array [1..6] of integer; i: integer;

begin

   for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;

   writeln;

   for i:=1 to 6 do write(a[i], ' ');

end.

4,4(46 оценок)
Открыть все ответы
Ответ:
TookteR
TookteR
26.11.2020

Відповідь:

#include <iostream>

using namespace std;

void sortmaxtomin(int *arr){

for(int i = 0; i < 7;i++){

 for(int j = 0; j < 6; j++){

  if(arr[i] > arr[j]){

   swap(arr[i], arr[j]);

  }

 }

}

}

void sortmintomax(int *arr){

for(int i = 0; i < 7;i++){

 for(int j = 0; j < 6; j++){

  if(arr[i] < arr[j]){

   swap(arr[i], arr[j]);

  }

 }

}

}

void printarr(int *arr){

for(int i = 0; i < 7; i++){

 cout << arr[i] << " ";

}

}

int main(){

setlocale(LC_ALL , "Rus");

int A[] = {20,110,40,775,95,145,1100};

cout << "Массив: ";

printarr(A);

cout << "\nСортировка по убыванию: ";

sortmaxtomin(A);

printarr(A);

cout << "\nСортировка по возрастанию: ";

sortmintomax(A);

printarr(A);

return 0;

}

4,5(100 оценок)
Ответ:
irinohkaberesn
irinohkaberesn
26.11.2020

 2)

var i:integer;
begin
writeln('Введите цифру означающюю день недели, например 2-вторник');
readln(i);
case i of
1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
2:writeln('Вторник Информатика,История,Изо');
3:writeln('Среда,Английский,Искусство');
else writeln('ERROR');

readln;
end;

3)

var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if (a<7) then writeln('Дошкольник') else
if (a>7) and (a<18) writeln('Ученик') else
if (a>18) and (a<60) writeln('Рабтник') else
if (a>65) writeln('Пенсионер');
readln;
end.

 

 

 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

4,5(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ