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

Задачи по Паскалю Создать массив на 10 элементов, заполнить его с клавиатуры. Вывести на экран
максимальный и минимальный элементы массива.
2
Создать массив на 10 элементов, заполнить его с клавиатуры положительными и
отрицательными элементами. Вывести на экран количество отрицательных элементов.
3
Создать массив на 10 элементов. Вывести на экран количество сумму квадратов элементов
созданного вами массива.

👇
Ответ:
rebkovets2015
rebkovets2015
21.08.2020

1)

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

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

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

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

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

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.

4,8(38 оценок)
Открыть все ответы
Ответ:
maks737
maks737
21.08.2020
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
4,6(100 оценок)
Ответ:
Hapec
Hapec
21.08.2020

#include "stdafx.h" #include "stdio.h" #include <time.h> #include <stdlib.h>   class vector {   private:     int* m;     int size; public :     vector(int n = 0);     vector(const vector &vector2);     ~vector(); }; vector::vector( int n ) {       if (n < 0) n = 0;     size = n;     m = new int[n]; if(!m) printf("Error"); else m = NULL; } vector::vector(const vector &vector2) {     size = vector2.size;         m = new int [size];     for(int i = 0; i<size;i++)         m[i] = vector2.m[i];     printf("kopia stvorena !"); } vector::~vector() {         delete[] m; } vector(int *m, int size) {       srand(time(NULL))           if(!m)               printf("error")           else           for(int i = 0; i < size; i++)            m[i] = rand()% 99; }     int main() {       vector v1(45),      system("pause");     return 0; }

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