Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

написать программу и блок схему

10-11 класс

дана матрица
А= {-10 20 13
-22 11 -5
4 12 -8}
определить среднее арифметическое отрицательных и положительных элементов

прив222 06 марта 2015 г., 16:52:07 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
PanovGleeb
06 марта 2015 г., 19:16:49 (9 лет назад)

var a : array [1..3] of array [1..3] of integer;
     i,j : shortint;
     c1,c2,s1,s2 : integer;

begin
    a[1][1]:=-10;
    a[1][2]:=20;
    a[1][3]:=13;
    a[2][1]:=-22;
    a[2][2]:=11;
    a[2][3]:=-5;
    a[3][1]:=4;
    a[3][2]:=12;
    a[3][3]:=-8;
    s1:=0; s2:=0; c1:=0; c2:=0;
    for i:=1 to 3 do begin
         for j:=1 to 3 do begin
               if a[i][j]>0 then begin
                     s1:=s1+a[i][j];
                     inc (c1);
               end else begin
                     s2:=s2+a[i][j];
                     inc (c2);
               end;
         end;
    end;
    writeln (s1/c1:0:0);
    writeln (s2/c2:0:2);

+ 0 -
класика
06 марта 2015 г., 21:56:02 (9 лет назад)

на языке VisiaL Basic

Ответить

Другие вопросы из категории

не могу составить блок схему помогите пожалуйста ((

program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.

2) Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на русском языке или на одном из

языков программирования алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5.

Читайте также



Вы находитесь на странице вопроса "написать программу и блок схему", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.