сделать на Pascal!!!

Определить количество работников, заработная плата которых за
месяц с номером 1 составила больше 6000 руб.

Как примерно надо сделать показано на фотография

219

437

Посмотреть ответы 1

Ответы на вопрос:

ПоЛИнА10571

Информатика

4,4(13 оценок)

#include < stdio.h> char main(void) { char a[5][5],b[5][5],c[5][5]; int i,j, n = 5, m = 5; printf(" array a: "); printf("\r\n"); srand(time(0)); for (i=0; i< n; i++) { for (j=0; j< m; j++) { a[i][j] = rand() %10; printf("%d ", a[i][j]); } printf("\r\n"); } printf(" array b: "); printf("\r\n"); srand(time(0)); for (i=0; i< n; i++) { for (j=0; j< m; j++) { b[i][j] =1+ rand() %9; printf("%d ", b[i][j]); } printf("\r\n"); } printf(" array c: "); printf("\r\n"); for (i=0; i< n; i++) { for (j=0; j< m; j++) { if (a[i][j]> b[i][j]) c[i][j] = a[i][j]; else c[i][j] = b[i][j]; printf("%d ", c[i][j]); } printf("\r\n"); } } //////////////////////////// паскаль ///////////////////////// program asd; const n=3; m=3; var a,b,c: array[1..n,1..m] of integer; i,j: integer; begin writeln('массив а: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; writeln; writeln('массив b: '); for i: =1 to n do begin for j: =1 to m do begin b[i,j]: =random(10); write(b[i,j]: 3); end; writeln; end; writeln; writeln('массив c: '); for i: =1 to n do begin for j: =1 to m do begin if a[i,j]> b[i,j] then c[i,j]: =a[i,j] else c[i,j]: =b[i,j]; write(c[i,j]: 3); end; writeln; end; end.