Составить программу, которая будет находить 5 наибольших по модулю элементов среди чётных строк массива размерностью 100 строк и 100 столбцов.

отличник738   ·   01.02.2020 20:23
Ответов: 2 Показать ответы 8 Обсудить
Ответы
Ответ разместил: ВладиславБелоус
18.03.2019 03:40

одномерного массива:

varимямассива: array [нижняяграница..верхняяграница] ofтипэлементов;

двумерного массива:

varимямассива: array [нижняяграница1..верхняяграница1,нижняяграница2..верхняяграница2] ofтипэлементов;

 

заполение массива:

одномерный массив: for i: =1 to5do readln(a[i]); {ввод с клавиатуры}

двумерный массив: for i: =1 to3do

                                                                            for j: =1 to2do readln(a[i,j]);

 

вывод массива на экран:

в столбец: for i: =1 to5do writeln(a[i]);

в строку: for i: =1 to5do write(a[i],' ');

матрица двумерного массива:

for i: =1 to n do

begin

for j: =1 to m do

write (a[i,j]: 4);

writeln;

end;

 

действия с одномерным массивом:

вычисление суммы элементов:

s: =0;

for i: =1 to n do s: =s+a[i];

подсчет элементов, удовлетворяющих условию:

k: =0;

for i: =1 tondo

if a[i] условиеотбора then k: =k+1;

Ответ разместил: Sadig1505
17.03.2019 22:30

моя интуиция подсказывает, что это паскаль, если так, тогда нужны скобки, иначе машина будет выдавать ошибку. полный код будет выглядеть так:

 

var x: integer; y: real; beginreadln(x); if (x> =-2) and (x< =2) then y: =sqr(x)/4; writeln(y); end.

Ответ разместил: He12022005
13.03.2019 18:00

  устройство хранения программ и данных 6букв

Ответ разместил: Yulduz111111
12.03.2019 20:00

var a,b,c: integer;

begin

a: =2;

b: =6;

c: =a+b;

writeln(c);

end.

значение "c" будет равняться 8.

Другие вопросы по Информатике

Скорость передачи данных через модемное соединение равна 51200 бит/c. передача текстового файла через это соединение заняла 10 с. определите сколько символом содержал переданный те...
Информатика
12.03.2019 04:10
2 ответ(ов)
Одновременно бросают два кубика, на гранях каждого из которых указаны очки-от 1 до 6 .сколько бит информации получено, если за один бросок выпало 1 и 6 ( в сумме-7) очков?...
Информатика
13.03.2019 20:50
1 ответ(ов)
Написать программу. программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты. вычислить сумму...
Информатика
19.03.2019 03:50
2 ответ(ов)
Для какого из имён истинно высказывание: не (первая буква согласная) и не (последняя буква гласная)? 1) ольга 2) михаил 3) валентина 4) ян...
Информатика
21.03.2019 14:54
3 ответ(ов)
Какие данные вы бы включили в информационные модели: 1) обед в школьной столовой 2) ремонт квартиры 3) пассажир поезда 4) дом, в котором ты живешь...
Информатика
30.03.2019 09:20
2 ответ(ов)
Составить линейный алгоритм для следующих и записать его с блок-схем. 4. даны два положительных числа....
Информатика
31.03.2019 19:29
1 ответ(ов)
Составить блок схему нахождение суммы чисел от 1 до 1000....
Информатика
01.04.2019 18:10
2 ответ(ов)
Внесите исправления в ниже алгоритм, чтобы в результате его работы была нарисована рамка вдоль границ поля (исходное положение графического исполнителя – произвольное) и алгоритм...
Информатика
01.04.2019 20:30
3 ответ(ов)
Герб чего задали доклад про шутеры ​...
Информатика
08.04.2019 13:54
1 ответ(ов)
Паскаль! ! массив. ввести количество элементов, ввести эти элементы. найти среднее арифметическое положительных элементов, кратных первому элементу. первый элемент не равен 0....
Информатика
15.04.2019 10:54
3 ответ(ов)
Задали дз написать программу вычисления объёма конуса, цилиндра, площади прямоугольника, треугольника. в паскале...
Информатика
22.04.2019 20:18
1 ответ(ов)
Напишите блок схему для программы вывода всех чётных чисел от 2 до 100 включительно...
Информатика
23.04.2019 12:21
2 ответ(ов)
Самые популярные сегодня